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I.  INTRODUCTION 


The  Satellite  Celestial  Computation  Program  (SATEL)  was 
developed  for  the  UNIVAC  490  used  as  part  of  the  pointing 
system  for  the  Haystack  radar  antenna  operated  by  Lincoln 
Laboratory.  Written  in  SPURT  assembly  language,  this  program 
calculates  pointing  information  in  celestial  coordinates  for  a 
selected  path  of  an  earth  satellite.  Basically,  it  performs 
the  calculations  necessary  to  convert  mean  orbital  elements 
valid  as  of  a  certain  day  to  instantaneous  (osculating) 
elements  valid  as  of  the  time  of  computation;  from  these  it 
then  determines  celestial  coordinates  and  their  first  time 
derivatives  for  the  object  in  orbit. 

SATEL  is  divided  into  two  main  sections:  an  initializa¬ 
tion  and  a  working  section.  When  the  initialization  section 
is  entered  with  L(SYSTATl)  set  to  -0,  the  operator  types  in 
the  requested  parameters  on  the  on-line  typewriter;  when 
entered  with  L(SYSTATl)  set  to  +0,  the  operator  may  examine 
the  previous  input  values  and,  optionally,  change  or  use  them 
again.  When  the  initialization  section  is  entered  with 
L  (KYBRDLEVEL)  not  set  to  +0,  no  new  input  values  may  be 
entered  and  the  program  continues  with  the  previous  input 
values  updated  to  the  present  time. 
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The  initialization  section  is  entered  only  once  during 
initialization,  but  it  may  be  re-entered  an  indefinite 
number  of  times  for  reinitialization  purposes.  When  the 
working  section  is  entered,  a  calculation  is  made  for  the 
right  ascension,  declination,  range,  and  their  derivatives 
as  well  as  the  sine  and  cosine  of  the  orientation  angle  for 
the  time  contained  in  W (CELTIME) .  All  subroutines  save  and 
restore  all  registers  with  the  exception  of  B7. 

Errors  will  fall  into  two  general  classifications: 
arithmetic  or  geometric,  or  invalid  data.  If  an  error 
occurs,  control  will  be  transferred  to  the  location  follow¬ 
ing  the  return  jump  to  SATEL  and  the  probable  location  of  the 
error  will  be  left  in  a  word  in  core.  A  normal  exit  will 
transfer  control  to  two  locations  after  the  return  jump. 
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II.  PROGRAM  SPECIFICATIONS 


Calling  Sequence 

RJP  H(SATEL) 
Error  return 
Normal  return 


(H  =  L  if  initialization  or  reinitial¬ 
ization;  H  =  U  if  normal  operational 
entry  for  computation  of  a  point  set) 


Input  (by  on-line  typewriter) . 


Label 

Description 

Unit 

Range 

^n* 

right  ascension  of 
ascending  node ,  Q 

deg 

-360°  ^  Q  £  +360° 

W 

n 

argument  of  perigee,  ou 

deg 

-360°  ^  u,  ^  +360° 

I 

n 

inclination,  i 

deg 

0  s  l  <;  180° 

E 

n 

eccentricity,  e 

0  <  e  <  1 

M 

n 

mean  anomaly,  M 

rev 

0  ^  Mo  <;  1 

~  .25  <  Mx_5  <  _  17** 

EPOCH  YEAR 
MONTH 
DAY 

xxxx  =  year  (e.g.  1965) 
(1-12) xx  =  month  (e.g. 
(0.000-31.999)  day  and 
decimal  portion  of  day 

11) 

EQUINOX 

1950  or  present  date 

MODE 

track  or  jump 

JUMP 

(if  jump  option 

sec 

INTERVAL 


chosen) 


*n  =  0, ... ,5 

**Limits  derived  from  fact  that  limit  on  calculated  semi¬ 
major  axis,  a  is  1  <  a  <  16. 
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Output  (common  storage) 


Label 

RA 

DEC 

SINORIENT 

COSORIENT 

RADIUS 

DEC DOT 

RADOT 

RADIUS DOT 

Storage  Areas  Read 

L  (SYS TATI) 

W  (CELTIME) 

L (KYBRDLEVEL) 

W  (FRAMESIZE) 

W (TIMEMODE) 


Description 

Units  and  Scaling 

right  ascension,  a 

revolutions  B27 

declination,  6 

revolutions  B27 

sine  of  orientation 
angle ,  sinS 

B29 

cosine  of  orientation 
angle,  cosS 

B29 

radius  from  center  of 
earth  to  satellite,  p 

earth  radii  B22 

time  derivative  of 

DEC,  d6/dt 

radians/sec  B37 

time  derivative  of 

RA,  (da/dt)  cos 6 

radians/sec  B37 

time  derivative  of 

nautical  miles/ 

radius ,  dp/dt 

sec  B24 

+0  if  reinitialization 
-0  if  initialization 

time  of  computation  days  B28 

/  +  0  if  previous 
input  to  be  used 

sec  BO 

+0  if  realtime  run 
-0  if  simulation  run 
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Error  Conditions 


All  errors  exit  to  the  system  error  return, 
of  the  location  where  the  error  occurred  is  left 
Q-register  and  L(ERRINST). 

+0  indicates  a  calculation  error. 


The  address 
in  the 
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Limitations  on  Present  System 


e  must  not  =  0 . 

Declination  (DEC)  must  not  =  90°  or  270°  . 


Reinitialization 


KYBRDLEVEL  ^+0 ,  previous  input  is  updated  to  zero  hours 
of  the  present  day,  month  and  year. 

KYBRDLEVEL  =  +0 ,  SYSTAT1  =  +0 ,  new  data  may  be  entered . 


6 


Ill .  SUBROUTINE  DESCRIPTIONS 


SATINIT 


Function 

Driver  for  initialization  section  of  SATEL. 

Calling  Sequence 

RJP  SATINIT 
Normal  return 


Input 

None. 

Output 

None . 

Subroutines  Used 

DATAIN,  UPCALC ,  BLASTCONV,  INCONVER,  TCONVERT 

Storage  Areas  Read 

DMODE 

Storage  Areas  Written 

None . 

Error  Conditions 

None. 
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DATAIN 


Function 


To  request  if  necessary,  via  the  console  typewriter, 
and  store  as  floating-point  numbers  the  input  parameters  for 


SATEL. 


Calling  Sequence 

RJP  DATAIN 
Normal  return 


Input 


See  input  described  in  Section  II.  There  must  be  at 
least  one  input  parameter  in  each  group  with  the  exception 
of  Mn  which  must  have  two,  i.e.,  minimum  input  is:  ^  ,  i0  , 
U)o  ,  Oq  »  j  Mi  >  to  (where  Mj^  =  n,  the  mean  motion  and  to  is 
the  epoch) . 


Output 

The  original  input  parameters  in  their  appropriate 
storage  areas  (see  below)  expressed  as  floating-point 
numbers. 


Subroutines  Used 


INTERCOM 


Storage  Areas  Read 

DATALOC,  SYS TATI,  KYBRDLEVEL 
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Storage  Areas  Written 


TMZERO , . . . ,TMFIVE 
TEZERO, . . . ,TEFIVE 
TIZEROX, . . . ,TIFIVE 
TWZERO , . „ . , TWFIVE 
TRAMZERO , . . . ,TRAMFIVE 

RAMCNT , WCNT , ICNT , ECNT ,MCNT , TJMPDELT , DMO DE , 
VDAY , VMONTH , VYEAR 


Error  Conditions 


Errors  made  in  entering  the  input  are  conditions  recog¬ 
nized  by  a  printout  on  the  console  typewriter  and  may  be 
corrected  by  re-entering  correct  input. 
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UPCALC 


Function 


When  the  specified  epoch  time  of  the  input  parameters 
differs  from  the  starting  time  of  program,  to  update  the 
input  parameters  to  zero  hours  of  the  day  of  the  starting 
time  of  the  program. 


Calling  Sequence 

RJP  UPCALC 
Normal  return 


Input 


Epoch  day,  epoch  month,  epoch  year,  actual  day,  actual 
month,  actual  year,  and  parameter  groups. 


Output 

Updated  parameters  in  "Storage  Areas  Written"  expressed 
as  floating-point  numbers. 

Subroutines  Used 

FF  (calls  floating-point  package) 


Storage  Areas  Read 

VDAY,  VMONTH,  VYEAR,  YEARMONTH,  DAY 


Storage  Areas  Written 

MZERO , . . . , MFOUR 
EZERO, . . . ,EFOUR 
IZEROX, . . . , I FOUR 
WZERO , . . . ,WFOUR 
RAMZERO , . . . , RAMFOUR 
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Method 


The  updated  parameters  for  each  group  are  found  by 
means  of  the  following  equations: 

*o  (new)  =  ^  +  xi  0*0 )  +  *2  (t-t0)2+...+  Xg  (t-t0)6 

Xt (new) . . .X4 (new)  are  found  by  taking  successive 
derivatives  of  (new)  .  Each  new  parameter  in  a 
group  is  then  divided  by  its  appropriate  factorial, 

i.e.,  ^L,  ^2.,  ^2.,  to  complete  the  up- 

01  i:  2i  3:  4:  s: 

dating  process. 


Error  Conditions 


None. 
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BLASTCONV 


Function 


To  convert  the  time  of  computation  from  parts  of  a  day 
to  seconds.  All  conversions  are  done  in  floating-point 
formats . 


Calling  Sequence 

RJP  BLASTCONV 
Normal  return 


Input 


Time  of  computation  (parts  of  a  day,  binary  pt.28). 


Output 

Time  of  computation  (sec.,  floating  pt.) . 


Subroutines  Used 


FF  (calls  floating-point  package) 


Storage  Areas  Read 

CELTIME 


Storage  Areas  Written 

TINIT 


Error  Conditions 


None. 
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INCONVER 


Function 


To  convert  to  their  proper  computational  units  the  input 

parameters  Cl  ,  ti)  ,  i  ,  e  ,  and  M  ,  (e.g.  Q  is  converted  from 
^  n’  n’  n’  n’  n’  v  &  n 

degrees/dayn  to  radians/secn) . 


Calling  Sequence 

RJP  INCONVER 
Normal  return 


Input 


Input  parameters  in  floating-point  in  "Storage  Areas 
Read",  and  a  constant  which  converts  from  degrees  to  radians. 


Output 


Converted  parameters  in  floating-point  in  "Storage  Areas 
Read." 


Storage  Areas  Read 

MZERO, . . . ,MFIVE 
EZERO, . . . , EFIVE 
IZEROX, . . . ,IFIVE 
WZERO , . . . ,WFIVE 
RAMZERO , . . . ,RAMFIVE 
CONVERCON 


Storage  Areas  Written 

(Same  as  "Storage  Areas  Read")  SECCNT 
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Method 


Each  successive  higher-order  parameter  of  a  group  has 
the  form. 


Xn/dayn  n  =  0 , . . . , 5 

and  is  converted  accordingly  to 

^  /radians! 
n  lor  rev  / 

n 

sec 

In  order  to  obtain  greater  accuracy  in  further  calcula¬ 
tions,  before  the  mean  anomaly  is  converted  to  its  proper 
computational  units,  its  integer  portion  is  dropped  to  allow  * 
for  more  significant  digits  in  its  fractional  portion. 


Error  Conditions 


None . 
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TCONVERT 


Function 

To  convert  the  present  date  to  its  Julian  equivalent. 

Calling  Sequence 

RJP  TCONVERT 
Normal  return 

Input 

The  present  year,  and  day  of  year. 

Output 

The  Julian  equivalent  of  the  present  date. 

Subroutines  Used 

FF,  FLTPT 

Storage  Areas  Read 

YEARMONTH,  DAY 

Storage  Areas  Written 

DATE 

Error  Conditions 

None. 
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MCALC 


Function 


To  calculate  at  a  given  time,  values  for  the  functions 
M  (t)  ,  e  (t)  ,  l  (t)  ,  U)  (t)  ,  Q  (t)  ,  n  (t)  ,  &  (t)  ,  Q  (t)  ,  a  (t)  ,  9u  (t)  , 

ap(t) ,  an(t) ,  at(t) . 


Calling  Sequence 

RJP  MCALC 
Error  return 
Normal  return 


Input 

Mean  anomaly,  M,  eccentricity,  e,  inclination,  £,  argu¬ 
ment  of  perigee,  m,  and  right  ascension  of  ascending  node, 

Q,  in  floating-point. 

Time  of  computation,  t. 

Julian  date  (integer)  . 

Counts  for  the  number  of  parameters  in  each  group. 

Constants:  GM  =  1.53618  x  10"-6  earth  radii3 /sec2 
A;,  =  1.62354  x  10-3  earth  radii2. 


Output 

Fixed-point  values  for  the  functions:  mean  anomaly, 

M  (t) ;  eccentricity,  e  (t) ;  inclination,  £  (t) ;  argument  of 
perigee,  uuCt);  right  ascension  of  ascending  node,  Q  (t)  ;  mean 
motion,  n(t);  first  derivatives  of  m  (t)  and  Q  (t)  ;  semi -major 
axis,  a(t);  increment  to  argument  of  latitude,  du(t);  incre¬ 
ment  to  radius,  3p(t);  increment  to  inclination,  d£  (t)  ; 
increment  to  right  ascension  of  ascending  node,  9Q  (t) . 


Variable 


Units  Binary  Point  Range 


M  (t)  radians 


26 


|M  |<2jt 


e(t) 


0<e<l 


radians 
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Variable 

Units 

Binary  Point 

Range 

i(t) 

radians 

26 

|t  |  <2TT 

««(t) 

radians 

26 

1 0)  |  <2tt 

n(t) 

radians 

26 

|  Q  |  <2TT 

n  (t) 

radians/sec 

32 

i(t) 

radians/sec 

41 

0(t) 

radians/sec 

41 

a(t) 

earth  radii 

25 

0<a<l 6 

Su  (t) 

radians 

26 

|u|<2tt 

sp(t) 

earth  radii 

25 

SO(t) 

radians 

26 

St  (t) 

radians 

25 

Subroutines  Used 

CBROOT,  COSX,  SINX,  SOVERFLOW,  S ERROR,  ROUND,  SADD,  SSUB, 
SINII ,  PREDICTE,  SINW,  SQRT,  ATANX,  ASINX,  FF,  FLTPT,  MCALCAL , 
MCALMOD 


Storage  Areas  Read 

MZERO-RAMFIVE:  contains  input  parameters 
Mo  ... Mg ,  eo . . . e5 ,  to  ... 1 5  , 

fio  . .  .^5  s  Wo  •  •  •«% 


MTIME 

WCNT-MCNT:  Count  of  number  of  parameters  of  each  type 
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Storage  Areas  Written 

MM,  EE,  II,  ZOMEGA,  RAM,  NN,  DEROMEG,  DERRAM,  AA,  DELTL, 
DELTR,  DELTRAM,  DELTI,  W,  PP,  E1LAST,  WSIN,  WCOS,  IISIN, 
IICOS. 


Method 

M (t)  =  Mo  +  Mx  (t- 10 )  +  Ms  (t-t0)2  +  . .  .+M5  (t-to)5 

e(t)  =  e0  +  ex  (t-to  )  +  es  (t-to  )3  +  . .  .+e5  (t-t0  )5 

t  (t)  =  i0  +  i'i(t-to)  +  (t-to  )2  +  . .  ,+t5  (t-to)5 

w(t)  =  ufe  +  ^(t-to)  +  (t-to  )2  +  .  ..+%  (t-to)5 

Q(t)  =  Q0  +  fix  (t-to)  +  n2  (t-t0)2  +  . .  ,+n5  (t-to)5  - 


mean  anomaly 

eccentricity 

inclination 

argument  of 
perigee 

right  ascen¬ 
sion  of  the 
ascending 
node 


n  (t)  =  M(t)  =  Mx +21^  (t-t0) +  ..  .5M5  (t-t0)4 
w(t)  =  1%  +  2«b(t-t0)  +  ...  +  5«Js(t-t0)4 
Q(t)  =  fix  +  2fi2  (t-t0)  +  ...  +  5Q5  (t-t0 )4 
a(t)  =  [j^r]  [l  -  {  h  (1  -  |  sin2i)  Jl~ 


Su(t)  -  (2  -  sin2i)  (v  -  M  +  e  sin  v)  + 


(1  -  \  sin2i)  (1  -  —  -  Jl  -  e2)  sin  v  + 


(1  -  Jl  -  e2)  sin  2vj-  -  (|-  -  -|  sin2i)  e  sin(v  +  2uj) 
(r;  -  Y2'  sin2i)  sin  2  (v  +  uu)  -  J  cos 2i  sin(3v  +  2uu)  J 
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Sr(t)  =  1  Is-  (1  "  1  sinH)j_-  1  "  (1  -  VTT 


e2)  cos  v  + 


—  1/  <y/l  -  e‘  J+ 4  ^  sin2i  cos  2  (v  +  uu) 


90  ( t)  =  -  cost 


£v  -  M  +  e  sin  v  -  sin  2  (v  +  uu)  - 


4j  sin  (v  +  2(«)  -  sin  (3v  +  2uu)^ 


-  If  sin2i  [cos  2  (v  +  uu)  +  e  cos  (v  +  2uu)  + 
cos  (3v  +  2uu)J 

P  =  (1  -  e2)  -  semi-latus  rectum 


V 

E  = 
tn  = 


=  sm 


Vl  -  e2  sin  E 


-  true  anomaly 


1-e  cos  E 
Eccentric  anomaly 

updated  epoch  (zero  hours  of  actual  day) 


Error  Conditions 


Overflow  during  arithmetic  operations  or  an  error  in 
geometric  operations.  Both  types  of  errors  must  be  reme¬ 
died  before  the  calculation  may  be  continued. 
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PREDICTE 


Function 


To  calculate  the  eccentric  anomaly  by  an  iterative  method. 


Calling  Sequence 

RJP  PREDICTE 
Normal  return 

Input 

Mean  anomaly,  (binary  point  26), 
eccentricity,  (binary  point  29) 


Output 

1.  Predicted  value  of  eccentric  anomaly  (binary  point  26), 

2.  Value  of  eccentric  anomaly  used  in  further  calcula¬ 
tions  after  a  comparison  of  predicted  value  and  actual 
calculated  value  (binary  point  26) .  (E1LAST  contains  current 
value  being  used  -  E2LAST  contains  last  value  used.) 


Subroutine  Used 


SINX 


Storage  Areas  Read 

MM,  EE 


Storage  Areas  Written 

E1LAST,  E2LAST,  EGVAL 
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Method 


The  first  and  second  times  through  the  routine  a  value 
of  eccentric  anomaly  E  is  predicted  from  the  following 
equation : 

3 

(1)  E(t)  =  M  +  (e  -  — )  simM  +  jse3  sin2M+  fe3  sin3M 


After  the  second  time  through  the  routine  a  value  of  E  is 
predicted  from  the  equation: 

(2)  E  (t)  =  2E  (t-6t)-E  (t-26t) 


Then  the  exact  value  of  E  is  calculated  from  the  equation: 

(3)  M  =E  -esinE  ,  AE  =  — M-Mn  ,E  =  E  +AE 
v  J  n  n  n’  n  1-ecosE  n+l  n  n 

n 

By  iteration  a  AE  is  found  which  is  less  than  e. 


Error  Conditions 


Geometric  and  arithmetic  errors  only. 
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MCALMOD 


Function 


To  make  modulo  2tt  and  measure  in  a  positive  direction 
the  angles,  M(t)  ,  i  (t)  ,  u)  (t)  ,  Q  (t)  and  to  convert  to  fixed 
point  and  store  M(t),  e  (t)  ,  t  (t)  ,  cxj  (t)  ,  0  (t)  , 


Calling  Sequence 

RJP  MCALMOD 
Normal  return 


Input 


Mean  anomaly,  M(t) ;  eccentricity,  e (t) ;  inclination, 
i  (t)  ;  argument  of  perigee,  uu  (t)  ;  right  ascension  of  ascend¬ 
ing  node  Q  (t) .  All  quantities  are  in  floating-point  format. 


Output 

M(t),  e  (t)  ,  f  (t)  ,  uu  (t)  ,  0  (t)  ,  in  fixed-point,  as  de¬ 
scribed  in  MCALC  output. 


Subroutines  Used 


FF,  M0D2PI 


Storage  Areas  Read 

MCALSUM 


Storage  Areas  Written 

MM  (table) 


Error  Conditions 


Errors  from  floating-point  package. 
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MCALCAL 


Function 


To  do  the  actual  evaluation  of  the  equations  described 
in  MCALC  for  M  (t)  ,  e  (t)  ,  i  (t)  ,  uj  (t)  ,  Q  (t)  . 


Calling  Sequence 

RJP  MCALCAL 
Normal  return 


Input 


Time  of  computation,  t;  right  ascension  of  ascending 
node,  0  ;  argument  of  perigee,  uu  ;  inclination,  t  ;  eccen¬ 
tricity,  e  ;  mean  anomaly,  M  (m2eR0-RAMFIVE=M1 , .V. ,Qs) . 

Also  input  are  counts  for  number  of  parameters  in  each  group. 


Output 

M(t),  e  (t)  ,  i  (t)  ,  w(t),  0(t)  in  floating-point  format, 
evaluated  at  the  time  of  computation. 


Subroutines  Used 


FF  (calls  floating-point  package) 


Storage  Areas  Read 


MZERO. . .MFIVE  MCNT, 

EZERO...EFIVE  ECNT, 

IZEROX. . .IFIVE  ICNT, 

WZERO...WFIVE  WCNT, 

RAMZERO . . . RAMFIVE  RAMCNT 


23 


Storage  Areas  Written 


MCALSUM 


Error  Conditions 


Errors  in  floating-point  package  calculations. 
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SATWORK 


Function 

Driver  for  working  section  of  SATEL. 

Calling  Sequence 

RJP  SATWORK 
Error  return 
Normal  return 


Input 


Time  of  computation,  framesize,  type  of  run:  realtime 
or  simulation. 


Output 

Constant  used  in  calculating  jump  interval  if  jump 
option  called,  and  time  of  computation. 


Subroutines  Used 

SCALC,  MCALC 

Storage  Areas  Read 

CELTIME,  FRAMESIZE,  TIMEMODE,  JMPDELT 

Storage  Areas  Written 

MTIME,  JMPPT,  JMPPTX 
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Method 


When  the  jump  option  is  used  the  time  of  computation  is 
calculated  in  the  following  way: 


(1)  t  =  CELTIME  +  n (FRAMES I ZE) 


(2)  t  =  ts  +  %  At 


replaced  by  (t  +.At)  and  (2)  is 
computation  s  J 


When  t  >  t  +  .At,  t  is 
repeated  givingsa  ndw  timl  of 


t  =  start  time 
s 

t  =  time  of  computation 
At  =  jump  interval  where  j=l,2,3,... 
n  =  >+,  when  simulation  run 
1,  when  realtime  run 

Error  Conditions 


Arithmetic  and  geometric  errors  from  within  SCALC  and 
MCALC . 
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SCALC 


Function 

Given  values  for  the  mean  elements  of  a  satellite  orbit 
to  calculate  the  true  right  ascension,  true  declination,  true 
radius,  their  time  derivatives,  and  sin  and  cos  of  the  orien¬ 
tation  angle  of  the  satellite  at  the  time  of  computation. 


Calling  Sequence 

RJP  SCALC 
Error  return 
Normal  return 


Input 

Mean  elements  as  described  in  MCALC. 


Output 

Storage 

Description 

Units 

Binary 

Point 

RA 

true  right  ascension,  oc 

rev. 

27 

DEC 

true  declination,  6 

rev. 

27 

RADIUS 

true  radius ,  p 

earth  radii 

22 

RADOT 

time  derivative  of 

RA,  & 

radians/sec 

37 

DEC DOT 

time  derivative  of 

DEC,  6 

radians/sec 

37 

RADIUSDOT 

time  derivative  of 
RADIUS,  p 

naut.  mi/sec 

24 

SINORIENT 

sin  of  orientation 
angle,  sin  3 

29 

COSORIENT 

cos  of  orientation 
angle,  cos  3 

29 

27 


Subroutines  Used 


Fixed  point  trigonometric  subroutines , 

SADD,  SSUB 

Storage  Areas  Read 

MM,  EE,  II,  ZOMEGA,  RAM,  NN,  DEROMEG,  DERRAM,  AA, 
DELTL ,  DELTR ,  DELTRAM,  DELTI . 

Storage  Areas  Written 

RA,  DEC,  RADIUS,  RADOT,  DECDOT,  RADIUSDOT,  SINORIENT, 
COSORIENT. 

Method* 

p  =  a  (1-cosE)  +  dp 

&  =  sin  (sini^sinu^)  -  ^  <  6  <  ^ 


cos  6 


if  <  0,  <  a  <  j1 


*  f  =  final,  e.g.,  sin  =  sin  fi  +  cos  fidfi 
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ruin 


cos6  a  =  cos6  Cl  +  cos^  4^ 

coso  at 

.  _  sinicosu  d u 
6  cos  6  dt 

n  -  aen 

p  ‘  jr-r^  sin  v 

sinP  =  Vl  -  cosP2 

cosp  =  sintj.  cos  (a-fi) 

Error  Conditions 

Arithmetic  or  geometric  errors. 
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SINW 


Function 


To  calculate  sin  v  and  cos  v. 


Calling  Sequence 

RJP  SINW 
Normal  return 


Input 


Eccentricity,  e,  binary  point  29;  eccentric  anomaly,  E, 
binary  point  26. 


Output 

Cosine  of  v,  binary  point  28. 
Sine  of  v,  binary  point  28. 


Subroutines  Used 


SQRT,  SINX,  COSX 


Storage  Areas  Read 

EE,  E1LAST 


Storage  Areas  Written 

WSIN,  WCOS 
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Method 


sin  v 


v4-e2  sinE 

1-e  cosE 


cos  v 


cosE-e 

1-e  cosE 


Error  Conditions 


Overflow  in  arithmetic  procedures. 
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IV.  FLOW  CHARTS 


Flow  charts  for  the  subroutines  described  in  the  preced¬ 
ing  section  appear  on  the  following  pages. 
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SA.TINIT 


iTniualizatiort 


Set  up  to  print  out 
only  pdf am/ter  name 
DAUHAM  K-+ 
paidmcter  locations 


rniTEECOtr 

Print  out . 
v’uutialUatiovL^ 

message 


Print  out . 

reinitialization 
message 


Set 

parameter  type 
counter  *  0 


Set 

counter  for  number 
of  parameter  in 


=■  o 


Set  uf 

calling  se^ienreto 
TUTE.PC0U  speclfyo* 
parameter  group 


DM  MO 
Sheet  t  of  5 
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DMA  LOC 
has  value  of 
parameter 

=1=; 

MttlOClMTAMHjI 


$ 


Set  up  catling 
V|UfwcetoTOTEOOK 

to  print  0«t 
parmitr  name 


Store  value 
and  add  l  to 
count  •/  number 
of  portEfttf  m  grou p 


/fount  if  number  oh  4 
\^rametercr?froupy 


Store 
count  of  number 
of  parameters 
(a  group 


leTufmmoit 

allinj  sequence 
to  print  pari  meter 
name  and  value 


© 


bKTMU 
Skeet  2  of  5 
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Setup  INTERCOM 
calling  soufnce 
to  print  out  oo nr 
and  value  in  VD&Y 

(*) 


Set  uplttTERCOM 
calling  sequence 
to  print  out  name 
and  value  in  eouok 


'INTERCOM ' 


DK.TMM 
Sheet  3  o-f  5 
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DMMW 
SV\eet  A-  of  5 


37 


t>MMU 
5  o{  5 
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UPCM-C. 
■Sheet  l  3 
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Calculate 
days  fro«i 

to  epock  montk 
BDAYWCYPRYf*) 
f  6DAY 


Calculate 

ioo.  of  days  to 
epock  day  ft  a* 
MSTIME  ^  VtM 

f  EDMl 

Calculate 
No.  of  days  to 
present  time 
wUmel«BMNflW 

Calculate 

Update  factor 
ATV  -  DTIMEl 
-  D ST I  ME 


coefficient 
table  With  ones 
CFTA8LE 


Clear 
UPSUM 
B(>,  B5 


Clear 

DERCUT 

B3 


§ 


Clear 
TCKlT,  B2 


UPCKLC 
SKee*  2  of  5 
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UPCM.C 
SWeet  3  0^ 
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rMCALCM-> 

Calculates 


UCAiM0D> 

/Mod  2TTnfce$sa* 
^  parameters  an 
stores  tkfi 


MCALC 

Sktet  l  of  3 


MCXLC 

Sheet  2  of  3 
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MCM-C 

SKeet.  3  of  3 
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PREDICTE 


UCALCM. 
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Entry 


SCNLC 

SWfcet  1  Of  2 
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SCM.C. 

Sheet  2  of  2 


Calculate 

f.^l5mv 
dl  VTe4 

1 

Convert  $  to 
nautical  miles 
^  <  EQOATOR 

1 

store 

eomierted.  ^in 
RAWOSDOT  /*r2( 

-  i 

Calculate 

dS  _  Sini^  C05U;  du 

dt  coss  dt 

 1 

Store 

dS 

IT 

in  DEC30T  7"r  37 

1 

Col culate 

c  da 

cosSit  = 
wsgiM£_ 

dt  cosS  dt 

1 

Etore 

£«  in 
dF  in 

RADOT  7**37 
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.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID  LJBEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

COOCO  SATEL 

PROGRAM  MCQU ILK IN*7/ 1/65 

COCCI  SATEL 

U-TAG  SAT WORK*  SAT  IN  I T 

00000 

06040 

06014 

C0CC2 

FD 

1*SAT  EL 

00001 

30063 

11221 

C0GC3 

CALL 

FLTPT 

C0CC4 

COMMENT  SATEL 

DATA  INPUT  ROUTINE 

C0CC5  DATAIN 

ENTRY 

00002 

61000 

00000 

C0CC6 

ENT 

A*W(KYBRDLEVEL)*AZERO 

00003 

11430 

63110 

USE  PREVIOUS  INPUT  IF 

C0C07 

JP 

DATAEX  IT  +  5 

00004 

61000 

00242 

C0C10 

ENT 

A*Wl DATAWRES ) 

00005 

11030 

01000 

C0C11 

STR 

A*W ( DATAW ) 

00006 

15030 

00322 

C0C12 

ENT 

A*W(DATARAMRES) 

00007 

11030 

01001 

C001 3 

STR 

A  *W ( D A  T  AR AM ) 

00010 

15030 

00334 

C0014 

ENT 

A*W( DATAIRES) 

00011 

11030 

01002 

C0015 

STR 

A*W( DAT  A  I ) 

00012 

15030 

00346 

C0C16 

ENT 

A*W ( DAT  AERES ) 

00013 

11030 

01003 

C0C17 

STR 

A*W( DATAE ) 

00014 

15030 

00360 

C0C20 

ENT 

A*W( DATAMRES) 

00015 

11030 

01004 

C0C21 

STR 

A*W( DAT  AM ) 

00016 

15030 

00366 

C0022 

STR 

B5*L( DATAEX IT ) 

00017 

16510 

00235 

C0C23 

STR 

B6*L(DATAEXIT4l) 

00020 

16610 

00236 

C0G24 

STR 

B3*L( DATAEXIT+2) 

00021 

16310 

00237 

C0025 

STR 

B4*L( DATAEX IT  43) 

00022 

16410 

00240 

C0C26 

STR 

B7*L ( DATAEXB7 ) 

00023 

16710 

0C246 

C0027 

STR 

B2*L( DATAEXIT44) 

00024 

16210 

00241 

C0030 

ENT 

A*LX( SYSTAT1)*ANEG 

00025 

11750 

63313 

♦  0  REINIT.  -0  IN  IN I T • 

C0031 

JP 

DATRE2 

00026 

61000 

00250 

REINIT. 

C0032 

ENT 

B2  *0 

00027 

12200 

00000 

INIT. 

C0033 

ENT 

A*W ( DA  T  AHAHA ) 

00030 

11030 

00777 

X  STORE  0  77777  IN  EXPONENT  OF 

PARAMETER 

C0G34  DATINA1 

STR 

A*W(TMZER04B2) 

00031 

15032 

00667 

X  OUTPUT  AREA 

COG35 

ENT 

B2*l4B2 

00032 

12202 

000C1 

X 

C0C36 

BSK 

B2*67D 

00033 

71200 

00103 

C0C37 

JP 

DATINA1 

00034 

61000 

00031 

COCAO 

ENT 

A  *  1 

00035 

11000 

00001 

C0041 

STR 

A* W( T  DMODE ) 

00036 

15030 

00765 

C0042 

STR 

A*W( EQMODE ) 

00037 

15030 

00771 

C0C43 

R  JP 

U( INTERCOM) 

00040 

65020 

63426 

PRINT  OUT  INIT.  MESSAGE 

C0C44 

U-TAG  DATAMESA*0 

00041 

00310 

OOOCO 

C0C45  DATINA11 

ENT 

B5  *0 

00042 

12500 

00000 

PARAMETER  TYPE  COUNTER 

C 0046  DAT AC2 

ENT 

B6*0 

00043 

12600 

00000 

NUMBER  OF  PARAMETERS  OF  TYPE 

C0047 

ENT 

A*W(DATAUTAG4B5) 

00044 

11035 

00253 

INTERCOM  CALLING  SEQUENCE  WORD 

C0C50 

STR 

A*W ( DAT INU ) 

00045 

15030 

00076 

X  SPECIFYING  PARAMETER  TYPE 

C0C51 

ENT 

A*W( DATMESS+B5 ) 

00046 

11035 

00516 

COC52 

STR 

A  *W ( $4  2 ) 

00047 

15030 

00051 

C0C53 

R  JP 

U(  INTERCOM) 

00050 

65020 

63426 

C0C54 

0 

0 

00051 

00000 

OOOCO 

C0C55  DATA03 

ENT 

B7*L(DATATYP+B5) 

00052 

12715 

0C262 

C0G56 

STR 

B6  *L ( $4  1  ) 

00053 

16610 

00054 

X 

COC57 

ENT 

B7*B7400 

00054 

12707 

00000 

X 

C0C6G 

ENT 

A*W ( B7  ) 

00055 

11037 

OOOCO 

X 

C0C61 

STR 

A*W ( DAT  ALOC ) 

00056 

15030 

00260 

X 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

C0C62 

ENT 

A  *W ( B7  +  1 ) 

00057 

11037 

OOOCl 

X 

• 

C0063 

STR 

A*W ( DAT  ALOC  +  1 ) 

00060 

15030 

00261 

X 

C0064 

ENT 

Q*W( OATAHAHA ) 

00061 

10030 

00777 

TEST  IF  PARAMETER  HAS  AN  ACCEP 
TABLE 

C0065 

ENT 

A*W ( DAT  ALOC ) 

00062 

11030 

00260 

X  VALUE 

C0066 

COM 

MASK»W(DATAHAHA)*ANOT 

00063 

43530 

00777 

X 

C0C67 

JP 

0ATAO31 

00064 

61000 

00072 

X  NO 

C0070 

ENT 

B2*U( 0ATAUTAG+B5) 

00065 

12225 

00253 

X  YES  t  PRINT  OUT  PARAMETER  NAM 
E  ANO 

C0071 

ENT 

B4  *DAT  AREFD 

00066 

12400 

00300 

X  VALUE 

C0072 

ENT 

A  *  B4 

00067 

11004 

00000 

X 

C0073 

STR 

A*U(B2*1) 

00070 

15022 

00001 

X 

C0074 

JP 

DATA032 

00071 

61000 

00075 

X 

C0075  0ATAO31 

ENT 

B2*U(DATAUTAG+B5) 

00072 

12225 

00253 

X  NO,  PRINT  OUT  PARAMETER  NAM 
E  ONLY 

C0076 

ENT 

A*  77777 

00073 

11000 

77777 

X 

C0077 

STR 

A*U ( B2+ 1 ) 

00074 

15022 

00001 

X 

C0100  DATA032 

R  JP 

U( INTERCOM) 

00075 

65020 

63426 

C01C1  DATINU 

0 

0 

00076 

00000 

00000 

• 

C01C2 

ENT 

Q*W ( DAT  AHAHA ) 

00077 

10030 

00777 

TEST  FOR  TERMINATION 

• 

C01C3 

ENT 

A* W ( OA T  ALOC  ) 

00100 

11030 

00260 

X  OF  PATAMETER  TYPE 

• 

C0104 

COM 

M ASK*W ( DAT AHAHA )*ANOT 

00101 

43530 

00777 

X  SKIP  IF  NUT  TERMINAL 

C0105 

JP 

0ATA04 

00102 

61000 

00124 

TO  PARAMETER  TYPE  CHANGER 

C01C6 

ENT 

B7»L10ATATYP+B5) 

00103 

12715 

00262 

LOC  OF  START  OF  PARAMETER  TYPE 
STORAGE 

• 

C0107 

STR 

B6*L( $+1) 

00104 

16610 

00105 

• 

cono 

ENT 

B7*B7+00 

00105 

12707 

OOOCO 

• 

com 

ENT 

A*W ( DAT  ALOC  ) 

00106 

11030 

00260 

VALUE 

• 

COl  12 

STR 

A*W ( B7  ) 

00107 

15037 

OOOCO 

• 

C0113 

ENT 

A*W(DATAL0C+1  ) 

00110 

11030 

00261 

• 

COl  14 

STR 

A*W( 1 +  B7  ) 

00111 

15037 

00001 

COl  15 

ENT 

B6*B6+ 1 

00112 

12606 

00001 

COl  16 

BSK 

B6* 1 ID 

00113 

71600 

00013 

COl  1 7 

JP 

$42 

00114 

61000 

00116 

C0120 

JP 

0ATAO5 

00115 

61000 

00126 

EQUALS 

C0121 

ENT 

B7*U ( 0 AT  I NU ) 

00116 

12720 

00076 

MOOIFY  OUTPUT  PARAMETER  NAME 

• 

C0122 

ENT 

B7*L ( B  7+ 1 ) 

00117 

12717 

00001 

X 

• 

C0123 

ENT 

A*W(B7) 

00120 

11037 

OOOCO 

X 

• 

C0124 

AGO 

A  *  100 

00121 

20000 

00100 

X 

C0125 

STR 

A*W(B7) 

00122 

15037 

00000 

X 

C0126 

JP 

DATA03 

00123 

61000 

00052 

C0127  0ATAO4 

B  JP 

B6  *OAT  A05  + 1 

00124 

72600 

00127 

TEST  FOR  MUNBER  OF  PARAMETERS 
EQU  0 

C0130 

JP 

DATA03 

00125 

61000 

00052 

YES  GO  BACK  TO  ASK  AGAIN  FOR  V 
ALUE 

COl 3 1  0ATAO5 

ENT 

B6» 1 ID 

00126 

12600 

00013 

C0132 

ENT 

B6*B6+ 1 

00127 

12606 

00001 

C0133 

ENT 

A  *  B6 

00130 

11006 

00000 

C0134 

RSH 

A  *  1 

00131 

02000 

00001 

C0135 

STR 

A  *L ( R AMCNT  +  B5 ) 

00132 

15015 

00772 

C0136 

BSK 

B5*4 

00133 

71500 

00004 

BUMP  AND  TEST  NUMBER  OF  PARAME 
TERS 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

11  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C0137 

JP 

DATA02 

00134 

61000 

00043 

GO  ON 

C0140 

ENT 

A*W ( MCNT ) 

00135 

11030 

00776 

C0141 

COM 

A  *  2*YMQRE 

00136 

04700 

OOOC2 

C0142 

JP 

DATA051 

00137 

61000 

00143 

C0143 

ENT 

B5  *4 

00140 

12500 

000C4 

C0144 

ENT 

B6  *2 

00141 

12600 

00002 

C0145 

JP 

DATA03 

00142 

61000 

00052 

CO 146  DATA051 

ENT 

A*U( Y  E ARMONTH ) 

00143 

11020 

63147 

C0147 

STR 

A*W( VYEAR ) 

00144 

15030 

01302 

X 

C0150 

R  JP 

U(  INTERCOM) 

00145 

65020 

63426 

X 

C0151 

U-TAG  DATOTBASE*DATITBASE 

00146 

00430 

00434 

C0152 

ENT 

A»L  ( Y  EARMONTH ) 

00147 

11010 

63147 

PRINT  OUT  EPOCH  MONTH 

CO  1 53 

STR 

A*W( VMONTH) 

00150 

15030 

01304 

X 

C0154 

R  JP 

U<  INTERCOM) 

00151 

65020 

63426 

X 

C0155 

U-TAG  DATOMO*DATIMO 

00152 

00446 

00452 

X 

C0156 

ENT 

Q*W( DATAHAHA) 

00153 

10030 

00777 

TEST  DAY  HAS  ACCEPTABLE  VALUE 

C0157 

ENT 

A*W ( VDAY ) 

00154 

11030 

00767 

X 

C0160 

COM 

M ASK *W( DATAHAHA )*ANOT 

00155 

43530 

00777 

X 

C0161 

JP 

DATA054 

00156 

61000 

00162 

X  NO 

C0162 

ENT 

A  *00000 

00157 

11000 

00000 

X  YES  PRINT  PARAMETER  NAME  AND 

value 

C0163 

STR 

A*U(DAT0DY+1) 

00160 

15020 

00371 

X 

C0164 

JP 

DATA055 

00161 

61000 

00164 

X 

C0165  DATA054 

ENT 

A*77777 

00162 

11000 

77777 

X  NO  PRINT  PARAMETER  NAME  ONLY 

C0166 

STR 

A*U( DATODY+1 ) 

00163 

15020 

00371 

X 

C0167  DATA055 

R  JP 

U<  INTERCOM) 

00164 

65020 

63426 

X 

C0170 

U-TAG  DATODY*DATIDY 

00165 

00370 

00374 

X 

C0171 

ENT 

A*W( VDAY) 

00166 

11030 

00767 

C0172 

ENT 

Q*W( DAT  AHAHA ) 

00167 

10030 

00777 

C0173 

COM 

M ASK  * W ( DATAHAHA )*ANOT 

00170 

43530 

00777 

C0174 

JP 

DATA055 

00171 

61000 

00164 

C0175 

ENT 

Q*W ( D AT  AHAHA ) 

00172 

10030 

00777 

X 

C0176 

ENT 

A*W ( EQMODE ) 

00173 

11030 

00771 

TEST  EQUINOX  HAS  ACCEPTABLE  VA 
LUE 

C0177 

COM 

MASK*W( DATAHAHA )*AZERO 

00174 

43430 

00777 

C02C0 

CL 

A* 

00175 

11000 

00000 

YES  .PRINT  NAME  AND  VALUE 

C02C1 

STR 

A*U ( DATOEQ+ 1 ) 

00176 

15020 

00410 

NO, PRINT  NAME  ONLY 

C02C2 

R  JP 

U(  INTERCOM) 

00177 

65020 

63426 

C0203 

U-TAG  DATOEQ*DATIEQ 

00200 

00407 

00413 

C0204 

ENT 

A*W( TDMODE ) 

00201 

11030 

00765 

X 

C0205 

COM 

MASK  *W ( DATAHAHA )*ANOT 

00202 

43530 

00777 

X 

C02C6 

JP 

DATA061 

00203 

61000 

00207 

X  NO 

C0207 

ENT 

A  *00000 

00204 

11000 

00000 

X  YES,  PRINT  PARAMETER  NAME  AN 
D  VALUE 

C0210 

STR 

A*U(DAT0M0DE*1) 

00205 

15020 

00500 

X 

C0211 

JP 

DATA062 

00206 

61000 

00211 

X 

C0212  DATA061 

ENT 

A*777  77 

00207 

11000 

77777 

X  NO,  PRINT  PARAMETER  NAME  ONL 

v 

C0213 

STR 

A*U(DAT0M00E+1) 

00210 

15020 

00500 

T 

X 

C0214  DATA062 

R  JP 

U( INTERCOM) 

00211 

65020 

63426 

C0215 

U-TAG  DATOMODE*DAT I MODE 

00212 

00477 

00503 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUlLKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C0216 

ENT 

A*W( TDMODE ) 

00213 

11030 

00765 

C0217 

SUB 

A • 1*AN0T 

00214 

21500 

00001 

C0220 

JP 

DATAEXIT 

00215 

61000 

00235 

• 

C0221 

ENT 

Q*M ( OAT  AHAHA ) 

00216 

10030 

00777 

TEST  T JMPDELT  HAS  ACCEPTABLE 

VALUE 

• 

C0222 

ENT 

A*W(TJMPDELT) 

00217 

11030 

00763 

X 

• 

C0223 

COM 

M ASK* W ( DAT AHAHA ) *ANOT 

00220 

43530 

00777 

X 

C0224 

JP 

DATA071 

00221 

6100C 

00225 

X  NO 

C0225 

ENT 

A*00000 

00222 

11000 

00000 

X  YES.  PRINT  PARAMETER  NAME 
D  VALUE 

AN 

C0226 

STR 

A*U ( DATODEL  T* 1 ) 

00223 

15020 

00465 

X 

• 

C0227 

JP 

DAT  A072 

00224 

61000 

00227 

X 

• 

C0230  DATA071 

ENT 

A*77777 

00225 

11000 

77777 

X  NO,  PRINT  PARAMETER  NAME 
LY 

ON 

• 

C0231 

STR 

A*U( DATODELT+1 ) 

00226 

15020 

00465 

C0232  DATA072 

R  JP 

U(  INTERCOM) 

00227 

65020 

63426 

C0233 

U-TAG  DATODELT*DAT I DELT 

00230 

00464 

00470 

C0234 

ENT 

A*L( T  JMPDELT ) 

00231 

11010 

00763 

C0235 

ENT 

Q*W( DATAHAHA ) 

00232 

10030 

00777 

C0236 

COM 

MASK*W ( DATA HA HA ) *ANOT 

00233 

43530 

00777 

C0237 

JP 

S-5 

00234 

61000 

00227 

• 

C0240  DATAEXIT 

ENT 

B5  *00 

00235 

12500 

00000 

• 

C0241 

ENT 

B6*00 

00236 

12600 

00000 

• 

C0242 

ENT 

B3*0 

00237 

12300 

00000 

C0243 

ENT 

B4*0 

00240 

12400 

00000 

C0244 

ENT 

B2*0 

00241 

12200 

00000 

C0245 

MOVE 

63D*TMZER0*MZER0 

00242 

12700 

00076 

00243 

10037 

00667 

00244 

14037 

00564 

00245 

72700 

00243 

C0246  DATAEXB7 

ENT 

B7*0 

00246 

12700 

00000 

• 

C0247 

EXIT 

00247 

61010 

00002 

• 

C0250  DATRE2 

R  JP 

U(  INTERCOM) 

00250 

65020 

63426 

• 

C0251 

U-TAG  DATAMESB*0 

00251 

00276 

OOOCO 

REINITIALIZATION  MESSAGE 

C0252 

JP 

DATINA11 

00252 

61000 

0004  2 

C0253  DATAUTAG 

U-TAG  DATORAM*DATIRAM 

00253 

00324 

00326 

C0254 

U-TAG  DATOW*DATIW 

00254 

00312 

00314 

C0255 

U-TAG  DATO I  *CAT I I 

00255 

00336 

00340 

C0256 

U-TAG  DATOE*DAT IE 

00256 

00350 

00352 

C0257 

U-TAG  DATOM*OATIM 

00257 

00362 

00364 

C0260  DATALOC 

0 

77777 

00260 

00000 

77777 

STORAGE  FOR  INPUT  VALUE 

C0261 

0 

0 

00261 

00000 

00000 

X 

C0262  DATATYP 

0 

TRAMZERO 

00262 

00000 

00747 

C0263 

C 

TWZERO 

00263 

00000 

00733 

C0264 

0 

TIZEROX 

00264 

00000 

00717 

C  0265 

0 

TEZERO 

00265 

00000 

00703 

C0266 

0 

TMZERO 

00266 

00000 

00667 

C0267  DAT AMESBB 

FD 

0*SATELL I TE  REINITIALIZATION 

00267 

30063 

11221 

00270 

21163 

11205 

00271 

27121 

62316 

00272 

31160 

62116 

00273 

37063 

11624 

00274 

23050 

50505 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CAROS 

11  ID 

L*BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C0270 

77777 

77777 

00275 

77777 

77777 

C0271 

DJTAMESB 

FD  0  *  A 

00276 

06050 

50505 

C0272 

77777 

DAT  AMESBB 

00277 

77777 

00267 

C0273 

DATAREFD 

FD  0*F7 

00300 

13670 

50505 

C0274 

77777 

DATALOC 

00301 

77777 

00260 

C0275 

D/TAMESAA 

FD  5*S AT  ELL  I TE  INITIALIZATION 

00302 

30063 

11221 

00303 

21163 

11205 

00304 

16231 

63116 

00305 

06211 

63706 

00306 

31162 

42305 

• 

C0276 

77777 

77777 

00307 

77777 

77777 

• 

C0277 

D^TAMESA 

FD  1  *  A 

00310 

06050 

50505 

• 

C0300 

77777 

DATAMESA A 

00311 

77777 

00302 

C03C1 

DATOW 

FD  1  *  A 

00312 

06050 

50505 

C0302 

77777 

DATAW 

00313 

77777 

00322 

C0303 

D  £T  I  W 

FD  1  *  F 

00314 

13050 

50505 

C0304 

10  DATALOC 

00315 

00010 

00260 

C0305 

0  40011 

00316 

00000 

40011 

-360 

C03C6 

64577 

77777 

00317 

64577 

77777 

C0307 

0  40011 

00320 

00000 

40011 

+  360 

CU310 

13200 

0 

00321 

13200 

00000 

C0311 

DATAW 

05053 

46044 

00322 

05053 

46044 

WO* 

C0312 

77777 

77777 

00323 

77777 

77777 

C0313 

DATORAM 

FO  1  *  A 

00324 

06050 

50505 

C0314 

77777 

OATARAM 

00325 

77777 

00334 

C0315 

D  AT  I R  AM 

FD  1*F 

00326 

13050 

50505 

C0316 

10  DATALOC 

00327 

00010 

00260 

C0317 

C  40011 

00330 

00000 

40011 

-360 

C0320 

64577 

77777 

00331 

64577 

77777 

C0321 

C  40011 

00332 

00000 

40011 

+  360 

C0322 

13200 

0 

00333 

13200 

00000 

C0323 

DATARAM 

C527C 

66044 

00334 

05270 

66044 

RAO 

C0324 

77777 

77777 

00335 

77777 

77777 

• 

C0325 

OATOI 

FD  1*  A 

00336 

06050 

50505 

• 

C  0326 

77777 

OATAI 

00337 

77777 

00346 

• 

C032  7 

OATH 

FD  1  *  F 

00340 

13050 

50505 

C0330 

10  OATALOC 

00341 

00010 

00260 

C0331 

C  40010 

00342 

00000 

40010 

-180 

C0332 

64577 

77777 

00343 

64577 

77777 

C0333 

C  40010 

00344 

00000 

40010 

+  180 

C0334 

13200 

0 

00345 

13200 

00000 

C0335 

D  AT  A  I 

C5051 

66044 

00346 

05051 

66044 

10* 

C0336 

77777 

77777 

00347 

77777 

77777 

C0337 

DATOE 

FD  1*A 

00350 

06050 

50505 

C0340 

77777 

DATAE 

00351 

77777 

00360 

C0341 

DATIE 

FD  1  *  F 

00352 

13050 

50505 

C0342 

10  DATALOC 

00353 

00010 

00260 

C0343 

C  40001 

00354 

00000 

40001 

-1 

C0344 

67777 

77777 

00355 

67777 

77777 

C0345 

0  40001 

00356 

00000 

40001 

♦1 

C0346 

10000 

0 

00357 

10000 

00000 

C0347 

DATAE 

0505 1 

26044 

00360 

05051 

26044 

m 

o 

C0350 

77777 

77777 

00361 

77777 

77777 

CARDS 


LI  ID  LABEL 


TA 


.  C0351 
.  C0352 
.  C0353 
.  C0354 
.  C0355 
.  C0356 
.  C0357 
.  C0360 
.  C  0361 
.  C0362 
.  C0363 
.  C0364 
.  C0365 
.  C0366 
.  C0367 
.  C0370 
.  C0371 


Cn 

On 


C0372 

C0373 

C0374 

C0375 

C0376 

C0377 

C04C0 

C04C1 

C0402 

C0403 


.  C04C4 
.  C0405 
.  C0406 
.  C0407 
.  C041G 
.  C0411 
.  C0412 
.  CG413 
.  C0414 
.  C0415 
.  C0416 
.  C0417 


DATOM 

DATIM 

datam 

DATODY 

DATIDY 

DATADY 

DATOEQ 

DATIEG 

DATAEG 

DATOTBASE 

DATITBASE 

DATATBASE 


C0420 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUlLKIN*7/l/65 


STATEMENT 

LOC 

F  JKB 

Y  NOTES 

FD  1*  A 

00362 

0605G 

5G5G5 

77777  DATAM 

00363 

77777 

00366 

FD  l*F 

00364 

13050 

505G5 

GO  DATALOC 

00365 

OGOGG 

00260 

05052  26044 

00366 

05052 

26G44  MO* 

77777  77777 

00367 

77777 

77777 

FD  1*  A 

00370 

06050 

505G5 

77777  DATADY 

00371 

77777 

00402 

FD  0*F 

00372 

13050 

505G5 

77777  VDAY 

00373 

77777 

00767 

FD  0*  F 

00374 

13050 

50505 

10  VDAY 

00375 

00010 

00767 

0  0 

00376 

OOOOG 

00000 

0  0 

00377 

00000 

OOOOG 

0  40006 

00400 

OGOGG 

40006 

1G000  0 

00401 

10000 

00000 

FD  0*DATE(0. 00-31. 999) 

00402 

11063 

11251 

00403 

24752 

42441 

00404 

63617 

57171 

00405 

71400 

50505 

77777  77777 

00406 

77777 

77777 

FD  1  *  A 

00407 

06050 

50505 

77777  DATAEQ 

00410 

77777 

00417 

FD  0*D 

00411 

11050 

50505 

77777  EQMODE 

00412 

77777 

00771 

FD  1*0 

00413 

24050 

50505 

10  EQMODE 

00414 

00010 

00771 

0  0 

00415 

OOOOG 

00000 

0  1 

00416 

OOOOG 

00001 

FD  0  *EQU I NOX • • •  1950(0) 

OR  PRESENT  DAT00417 

12263 

21623 

E(l) 

00420 

24357 

57575 

00421 

05617 

16524 

00422 

51244 

00524 

00423 

27052 

52712 

00424 

3G122 

33105 

00425 

11063 

11251 

00426 

61400 

50505 

77777  77777 

00427 

77777 

77777 

FD  1  *  A 

00430 

06050 

50505 

0  DATATBASE 

00431 

00000 

00442 

FD  0*D 

00432 

11050 

50505 

77777  VYEAR 

00433 

77777 

01302 

FD  0*D 

G0434 

1 1050 

50505 

10  VYEAR 

00435 

00010 

01302 

0  3644 

00436 

OGOOO 

03644 

0  3662 

00437 

00000 

03662 

0  0 

00440 

OOGOG 

00000 

0  0 

00441 

00000 

00000 

FD  0*EP0CH  YEAR 

00442 

12252 

41015 

00443 

05053 

61206 

00444 

27050 

50505 

77777  77777 

00445 

77777 

77777 

.  SPURT  OUTPUT  NO.  210 

SATEL  HCQUIL  KlN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

C0421  DATOMC 

FD  1  *  A 

00446 

06050 

50505 

C0422 

0  DATAMO 

00447 

00000 

00460 

C0423 

FD  0*D 

00450 

11050 

50505 

C0424 

77777 

VMONTH 

00451 

77777 

01304 

C0425  DATIMC 

FD  0*D 

00452 

11050 

50505 

C0426 

10  VMONTH 

00453 

00010 

01304 

C  0427 

C  0 

00454 

00000 

OOOOO 

C0430 

0  37 

00455 

00000 

00037 

C0431 

C  0 

00456 

00000 

OOOOO 

C0432 

0  0 

00457 

00000 

OOOOO 

C0433  DATAMO 

FD  0*M0NTH( 1-12) 

00460 

22242 

33115 

00461 

51614 

16162 

00462 

40050 

50505 

• 

C0434 

77777 

77777 

00463 

77777 

77777 

• 

C0435  DATODELT 

FO  1  *  A 

00464 

06050 

50505 

• 

C0436 

77777 

DATADELT 

00465 

77777 

00472 

C0437 

FD  0*  F7 

00466 

13670 

50505 

C044  0 

77777 

TJMPDELT 

00467 

77777 

00763 

C0441  DATIDELT 

FD  1  *  F 

00470 

13050 

50505 

C0442 

00  T  JMPDELT 

00471 

00000 

00763 

• 

CU443  DATADELT 

FD  0* JUMP  INTERVAL  (SEC) 

00472 

17322 

22505 

00473 

16233 

11227 

00474 

33062 

10551 

00475 

30121 

04005 

• 

C0444 

77777 

77777 

00476 

77777 

77777 

• 

C0445  D  ATOMODE 

FD  1  *  A 

00477 

06050 

50505 

C0446 

77777 

DATAMODE 

00500 

77777 

00507 

C0447 

FD  0*0 

00501 

11050 

50505 

C0450 

77777 

TDMODE 

00502 

77777 

00765 

C0451  D  AT  I  MODE 

FD  1*0 

00503 

24050 

50505 

• 

CU452 

10  TDMODE 

00504 

00010 

00765 

• 

C0453 

0  1 

00505 

00000 

00001 

• 

C0454 

C  2 

00506 

ooooo 

00002 

C0455  DATAMODE 

FD  0*M0DE • • •  TRACK ( 1 )  OR  JUMP (2) 

00507 

22241 

11275 

00510 

75750 

53127 

00511 

06102 

05161 

00512 

40052 

42705 

00513 

17322 

22551 

00514 

62400 

50505 

C0456 

77777 

77777 

00515 

77777 

77777 

C0457  DATMESS 

U-TAG 

DATMRAM*0 

00516 

00523 

OOOOO 

C0460 

U-TAG 

DATMW*0 

00517 

00525 

OOOOO 

C0461 

U-TAG 

OATM 1*0 

00520 

00527 

OOOOO 

• 

C0462 

U-TAG 

DATME*0 

00521 

00531 

OOOOO 

• 

C0463 

U-TAG 

DATMM*0 

00522 

00533 

OOOOO 

• 

C0464  DATMRAM 

FD  1  *  A 

00523 

06050 

50505 

C0465 

77777 

DATMESRAM 

00524 

77777 

00535 

C0466  DATMW 

FD  1  •  A 

00525 

06050 

50505 

C0467 

77777 

DATMESW 

00526 

77777 

00543 

C0470  DATMI 

FD  1*  A 

00527 

06050 

50505 

C0471 

77777 

DATMES1 

00530 

77777 

00550 

• 

C0472  DATME 

FD  1  *  A 

00531 

06050 

50505 

• 

C0473 

77777 

DATMESE 

00532 

77777 

00554 

.  SPURT  OUTPUT  NO*  210 

SATEL  MCQUIL KIN* 7/1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

# 

C0474  OATMM 

FO 

1  *  A 

00533 

06050 

50505 

* 

C0475 

77777  OATMESM 

00534 

77777 

00560 

C0476  DATMESRAM 

FO 

0*R IGHT  ASCENSION  OF  A/N 

00535 

27161 

41531 

00536 

05063 

01012 

00537 

23301 

62423 

00540 

05241 

30506 

00541 

74230 

50505 

C0477 

77777  77777 

00542 

77777 

77777 

• 

C0500  OATMESW 

FO 

0* ARGUMENT  OF  PERIGEE 

00543 

06271 

43222 

00544 

12233 

10524 

00545 

13052 

51227 

00546 

16141 

21205 

• 

C0501 

77777  77777 

00547 

77777 

77777 

• 

C0502  DATMESI 

FO 

0»  INCL INAT ION 

00550 

16231 

02116 

00551 

23063 

11624 

00552 

23050 

50505 

* 

C0503 

77777  77777 

00553 

77777 

77777 

C0504  OATMESE 

FO 

0»ECCENTR IC ITY 

00554 

12101 

01223 

00555 

31271 

61016 

00556 

31360 

505C5 

# 

C0505 

77777  77777 

00557 

77777 

77777 

C05C6  OATMESM 

FO 

0*ME AN  ANOMALY 

00560 

22120 

62305 

00561 

06232 

42206 

00562 

21360 

50505 

• 

C0507 

77777  77777 

00563 

77777 

77777 

• 

C0510  M ZERO 

0 

0 

00564 

00000 

00000 

• 

C0511 

0 

0 

00565 

00000 

00000 

C0512  MCNE 

0 

0 

00566 

00000 

00000 

• 

C0513 

0 

0 

00567 

00000 

00000 

• 

C0514  MTWO 

0 

0 

00570 

00000 

00000 

• 

C0515 

0 

0 

00571 

00000 

ooooo 

C0516  MTHREE 

0 

0 

00572 

00000 

00000 

C0517 

0 

0 

00573 

00000 

ooooo 

C0520  MFOUR 

0 

0 

00574 

00000 

ooooo 

C0521 

0 

0 

00575 

00000 

ooooo 

• 

C0522  MFIVE 

0 

0 

00576 

00000 

ooooo 

• 

C0523 

0 

0 

00577 

00000 

ooooo 

• 

C0524  E2ER0 

0 

0 

00600 

00000 

ooooo 

• 

C0525 

0 

0 

00601 

00000 

ooooo 

C0526  ECNE 

0 

0 

00602 

00000 

ooooo 

C0527 

0 

0 

00603 

00000 

ooooo 

• 

C0530  ETWO 

0 

0 

00604 

00000 

ooooo 

• 

C0531 

0 

0 

00605 

00000 

ooooo 

• 

C0532  ETHREE 

0 

0 

00606 

00000 

ooooo 

• 

C0533 

0 

0 

00607 

00000 

ooooo 

• 

C0534  E  FOUR 

0 

0 

00610 

00000 

ooooo 

• 

C0535 

0 

0 

00611 

00000 

ooooo 

• 

C0536  EFIVE 

0 

0 

00612 

00000 

ooooo 

C0537 

0 

0 

00613 

00000 

ooooo 

C0540  IZEROX 

0 

0 

00614 

00000 

ooooo 

C0541 

0 

0 

00615 

00000 

ooooo 

C0542  ICNE 

0 

0 

00616 

00000 

ooooo 

C0543 

0 

0 

00617 

00000 

ooooo 

SATEL 


CARDS 

LI  ID  L  ABEL 

TA  STATEMENT 

C0544  I  TWO 

C 

0 

C0545 

0 

0 

C0546  I  THREE 

0 

0 

C0547 

0 

0 

C0550  I  FOUR 

0 

0 

C0551 

C 

0 

C0552  IFIVE 

0 

0 

C0553 

C 

0 

C0554  W ZERO 

0 

0 

C0555 

C 

0 

C 0556  W CNE 

0 

0 

C0557 

0 

0 

C0560  W  TWO 

0 

0 

C0561 

C 

0 

C0562  WTHREE 

0 

0 

C0563 

0 

0 

C0564  WFOUR 

0 

0 

C0565 

C 

0 

C0566  WFIVE 

0 

0 

C0567 

0 

0 

C0570  RAMZERO 

0 

0 

C0571 

0 

0 

C0572  RAMONE 

0 

0 

C0573 

0 

0 

C0574  R  APT  WO 

0 

0 

C0575 

c 

0 

C0576  RAPTHREE 

0 

0 

C0577 

0 

0 

C06C0  RAPFOUR 

0 

0 

C06C1 

0 

0 

C06C2  RAPFIVE 

0 

0 

C06C3 

0 

0 

C0604  JPPOELT 

0 

0 

C06C5 

c 

0 

C06C6  DPCDE 

0 

0 

C0607  T  LAST 

0 

0 

C0610 

0 

0 

C0611  TZERO 

c 

0 

C06I2 

0 

0 

C06I3  T PZERO 

c 

0 

C0614 

0 

0 

C06I5  TPCNE 

0 

0 

C0616 

0 

0 

C06I7  TPTwO 

0 

0 

C0620 

0 

0 

C0621  TPTHREE 

c 

0 

C0622 

c 

0 

C0623  T PFOUR 

0 

0 

C0624 

c 

0 

C0625  TPFIVE 

0 

0 

C0626 

c 

0 

C0627  TEZERO 

0 

0 

C0630 

0 

0 

SPURT  OUTPUT  NO.  210 

MC0UILKlN*7/l/65 


LOC  F  JKB  Y 


00620 

00621 

00622 

00623 

00624 

00625 

00626 

00627 

00630 

00631 

00632 

00633 

00634 

00635 

00636 

00637 

00640 

00641 

00642 

00643 

00644 

00645 

00646 

00647 

00650 

00651 

00652 

00653 

00654 

00655 

00656 

00657 

00660 

00661 

00662 

00663 

00664 

00665 

00666 

00667 

00670 

00671 

00672 

00673 

00674 

00675 

00676 

00677 

00700 

00701 

00702 

00703 

00704 


00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 


00000 

00000 

00000 

oooco 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

oooco 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

oooco 

00000 

00000 

oooco 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

oooco 

00000 


NOTES 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUI L  KI N*7/l/65 


CARDS 

LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

C0631 

TECNE 

0 

0 

00705 

00000 

00000 

C0632 

C 

0 

00706 

00000 

OOOGO 

• 

C0633 

TETWC 

C 

0 

00707 

00000 

00000 

• 

C0634 

C 

0 

00710 

00000 

OOOGO 

• 

C0635 

TETHREE 

0 

0 

00711 

00000 

00000 

C  0636 

0 

0 

00712 

00000 

00000 

C0637 

TEFOUR 

C 

0 

00713 

00000 

00000 

C064  0 

C 

0 

00714 

00000 

00000 

C0641 

TEFIVE 

C 

0 

00715 

00000 

00000 

C0642 

0 

0 

00716 

00000 

00000 

CCJ643 

T  IZEROX 

c 

0 

00717 

00000 

00000 

C0644 

c 

0 

00720 

00000 

00000 

C0645 

T  ICNE 

0 

0 

00721 

00000 

00000 

C0646 

0 

0 

00722 

00000 

00000 

C0647 

T  I  TWO 

0 

0 

00723 

00000 

00000 

C0650 

0 

0 

00724 

00000 

00000 

C0651 

TITHREF 

0 

0 

00725 

00000 

00000 

C0652 

0 

0 

00726 

00000 

00000 

C0653 

T  I FOUR 

0 

0 

00727 

00000 

00000 

C0654 

0 

0 

00730 

00000 

00000 

C0655 

TIFIVE 

G 

0 

00731 

00000 

OOOGO 

C0656 

0 

0 

00732 

00000 

00000 

• 

C0657 

TfcZERC 

0 

0 

00733 

00000 

00000 

• 

C0660 

c 

0 

00734 

00000 

00000 

• 

C0661 

TV0NE 

0 

0 

00735 

00000 

00000 

• 

C0662 

0 

0 

00736 

00000 

00000 

• 

C0663 

T  bTHO 

0 

0 

00737 

00000 

00000 

• 

C0664 

0 

0 

00740 

00000 

00000 

• 

C0665 

TVTHREE 

0 

0 

00741 

00000 

00000 

C0666 

0 

0 

00742 

00000 

00000 

C0667 

TV*FOUR 

0 

0 

00743 

00000 

00000 

C0670 

c 

0 

00744 

00000 

ooooo 

• 

C0671 

TWFIVE 

0 

0 

00745 

00000 

00000 

• 

C0672 

c 

0 

00746 

00000 

ooooo 

• 

C0673 

T  RAMZER0 

0 

0 

00747 

00000 

ooooo 

C067$ 

0 

0 

00750 

00000 

ooooo 

C  0675 

TRAMONE 

0 

0 

00751 

00000 

ooooo 

C0676 

0 

0 

00752 

00000 

OOOGO 

C0677 

TPAMTWO 

0 

0 

00753 

00000 

OOOOO 

C0700 

G 

0 

00754 

00000 

ooooo 

C0701 

TPAMTHREE 

0 

0 

00755 

00000 

ooooo 

C0702 

0 

0 

00756 

00000 

ooooo 

C07C3 

T  PAM FOUR 

0 

0 

00757 

00000 

ooooo 

C0704 

c 

0 

00760 

00000 

ooooo 

C  0705 

TPAMF  IVE 

0 

0 

00761 

00000 

ooooo 

C0706 

0 

0 

00762 

00000 

ooooo 

C0707 

T  JMPDELT 

0 

0 

00763 

00000 

ooooo 

C0710 

0 

0 

00764 

00000 

ooooo 

C0711 

TCMODE 

0 

0 

00765 

00000 

ooooo 

C0712 

0 

0 

00766 

00000 

ooooo 

C0713 

VCAY 

0 

0 

00767 

00000 

ooooo 

C0714 

0 

0 

00770 

00000 

ooooo 

C0715 

ECMODE 

0 

0 

00771 

00000 

ooooo 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL  KIN* 7/ 1/65 


CARDS 

11  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C0716  RAMCNT 

C 

0 

00772 

00000 

00000 

C07 17  WCNT 

C 

0 

00773 

00000 

00000 

C0720  I CNT 

0 

0 

00774 

00000 

00000 

C0721  ECNT 

0 

0 

00775 

00000 

OOOOO 

C0722  MCNT 

C 

0 

00776 

00000 

00000 

C0723  DATAHAHA 

0 

77777 

00777 

00000 

77777 

C 072 A  DATAWRES 

05053  46044 

01000 

05053 

46044 

C0725  DATARAMRES 

C5270  66044 

01001 

05270 

6  6  044 

C0726  DATAIRES 

C5051 

66044 

01002 

05051 

66044 

C0727  DATAERES 

05051 

26044 

01003 

05051 

26044 

• 

C0730  DATAMRES 

05052  26044 

01004 

05052 

26044 

• 

C0731  UPCALC 

ENTRY 

01005 

61000 

OOOOO 

• 

C0732 

STR 

B2*L ( UPDATB2 ) 

01006 

16210 

01157 

INITIALIZATION 

C0733 

STR 

B 3*L ( UPDAT B  3 ) 

01007 

16310 

01160 

CQ734 

STR 

B5*L ( UPD AT  B5 ) 

01010 

16510 

01161 

C0735 

STR 

B6  *L ( UPDAT  B6 ) 

01011 

16610 

01162 

C0736 

ENT 

A*W< VMONTH) 

01012 

11030 

01304 

EPOCH  MONTH 

C073  7 

SUB 

A  *  1 

01013 

21000 

00001 

X 

C074U 

ENT 

B  7*  A 

01014 

12770 

OOOOO 

X 

C0741 

ENT 

A*W( VYEAR) 

01015 

11030 

01302 

C0742 

SEL 

CL*X  77774 

01016 

52040 

77774 

• 

C0743 

ENT 

Q*  A 

01017 

10070 

OOOOO 

• 

C0744 

ENT 

A  »W(  DYPRMO-f  87  ) 

01020 

11037 

01233 

• 

C0745 

ADD 

Q*0*QZERO 

01021 

26400 

OOOOO 

C0746 

JP 

$♦3 

01022 

61000 

01025 

C0747 

COM 

A*59D*YMORE 

01023 

04700 

00073 

C0750 

ADD 

A  *  1 

01024 

20000 

00001 

C0751  UFC001 

STR 

A*W( BDAY) 

01025 

15030 

01266 

C0752 

ENT 

A«U( YEARMONTH ) 

01026 

11020 

63147 

C0753 

SUB 

A#  1957D 

01027 

21000 

03645 

C0754 

ENT 

B7«A 

01030 

12770 

OOOOO 

C0755 

ENT 

A*W ( DYPRYR+B7 ) 

01031 

11037 

01247 

C0756 

ADD 

A*L( DAY ) 

01032 

20010 

63150 

C0757 

STR 

A  *W ( BOAYNGW ) 

01033 

15030 

01267 

C0760 

ENT 

A*W( VYEAR ) 

01034 

11030 

01302 

C0761 

SUB 

A« 1957D 

01035 

21000 

03645 

C0762 

ENT 

B7*A 

01036 

12770 

OOOOO 

C0763 

ENT 

A*W( DYPRYR+B7 ) 

01037 

11037 

01247 

C0764 

ADD 

A*W( BOAY) 

01040 

20030 

01266 

C0765 

STR 

A  *W ( BO AY  1  ) 

01041 

15030 

01306 

C0766 

R  JP 

FF 

01042 

65000 

05323 

CONVERT-DAYS  UNTIL  EPOCH 

MONTH 

-  TO  FLIPT 

C0767 

0 

BDAY  1 

01043 

00000 

01306 

C0770 

U-TAG 

1  FLTBOAY  *  10 

01044 

01270 

00010 

X 

C0771 

R  JP 

FF 

01045 

65000 

05323 

ADO  EPOCH  DAY  OF  MONTH  ♦ 

EPOCH 

DAYS 

C0772 

U-TAG 

fltbday*vday 

01046 

01270 

00767 

X 

C0773 

U-TAG 

NST I ME*00 

01047 

01272 

OOOOO 

X 

C0774 

R  JP 

FF 

01050 

65000 

05323 

CONVERT  PYR-EYR+POAYS  TO 

FLTPT 

C0775 

0 

BDAYNOW 

01051 

00000 

01267 

X 

C0776 

U-TAG 

FLTNDAY  *  10 

01052 

01274 

00010 

X 

C0777 

R  JP 

FF 

01053 

65000 

05323 

PRESENT  NO* DAYS )-( EPOCH  DAYS) 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

# 

C1CC0 

U-TAG  FLTNDAY*NSTIME 

01054 

01274 

01272 

• 

C1001 

U-TAG  UPDIFF*01 

01055 

01227 

00001 

• 

C 1 002 

ENT 

B5*0 

01056 

12500 

OOOCO 

INDEX  FOR  WHICH  PARAMETER  GROU 

D 

• 

C1CC3 

ENT 

86*0 

01057 

12600 

00000 

r 

• 

C 1  OCA  UFDAT01 

CL 

W(UPSUM) 

01060 

16030 

01200 

• 

C1C05 

CL 

W  (  UPSUM-f  1  ) 

01061 

1603  0 

01201 

• 

C 1 006 

MOVE 

2*FLT0NE*CFTABLE+B6 

01062 

10030 

04016 

SET  UP  TABLE  OF  COEFFICIENTS 

01063 

14036 

01206 

01064 

10030 

04017 

01065 

14036 

01207 

C1C07 

ENT 

B6*B6+1 

01066 

12606 

00001 

• 

C1C10 

BSK 

86*13 

01067 

71600 

00013 

• 

C1C11 

JP 

UPDAT01 

01070 

61000 

01060 

• 

C 1 012  UFDAT02 

CL 

W(DERCNT) 

01071 

16030 

01204 

COUNT  FOR  WHICH  DERIVATIVE 

C 1  01 3 

ENT 

B3*0 

01072 

12300 

00000 

B3, INDEX  FOR  PARAMETERS  WITHIN 

A  GROUP 

Cl  01 A  UFDAT03 

ENT 

B2*0 

01073 

12200 

00000 

B2, INDEX  FOR  WHICH  PART  OF  SUM 

calc. 

• 

C1015 

CL 

WCTCNT ) 

01074 

16030 

01205 

COUNT  FOR  MULT.  BY  TIME  DIFF 

• 

C1C16  UPDATC4 

ENT 

B7*L(0ATATYP1+B5) 

01075 

12715 

01222 

• 

C  1 017 

STR 

B3*L ( $♦ 1 ) 

01076 

16310 

01077 

• 

C1C20 

ENT 

87*87+00 

01077 

12707 

OOOCO 

• 

C 1 02 1 

STR 

B7*U ( UPDAT05 ) 

01100 

16720 

01106 

• 

C1C22 

ENT 

B7*CFT  ABLE  +  B3 

01101 

12703 

01206 

• 

C 1 023 

STR 

B7*L ( UPDAT05 ) 

01102 

16710 

01106 

• 

C 1 024 

STR 

B7*L ( UPDAT07 ) 

01103 

16710 

01121 

• 

C 1 025 

STR 

B7*U(UPDAT07+1 ) 

01104 

16720 

01122 

• 

C1C26 

R  JP 

FF 

01105 

65000 

05323 

MULT  PARAMETER  BY  COEFF. 

• 

C 1 027  UFDAT05 

0 

0 

01106 

00000 

00000 

• 

C1C30 

U-TAG  UPADD*02 

01107 

01231 

00002 

C1031  UF0AT06 

ENT 

A*B2 

oino 

11002 

00000 

TEST  FINISHED  MULT.  BY  TIME  DI 
FF 

C1C32 

SUB 

A*W(TCNT)*AZERO 

01111 

21430 

01205 

C 1 033 

JP 

UPDAT21 

01112 

61000 

01164 

NO 

• 

C1C34 

ENT 

A  *W ( TCNT ) *ANOT 

01113 

11530 

01205 

YES  *  TEST  IS  TIME  CNT  ZERO 

• 

C1C35 

JP 

UPCAT10 

01114 

61000 

01123 

YES 

• 

C  1  036 

R  JP 

FF 

01115 

65000 

05323 

NO,  MULT.  CNT  BY  COEFF.  TO  GET 

NEW 

C 1  037 

0 

TCNT 

01116 

00000 

01205 

COEFF.  FOR  NEXT  DERIVATIVE 

C1C40 

U-TAG 

I  T  CNTFLT* 10 

01117 

01202 

00010 

C  1 04  1 

R  JP 

FF 

01120 

65000 

05323 

C1C42  UFDAT07 

U-TAG  TCNTFLT*0 

01121 

01202 

00000 

C1C43 

0 

02 

01122 

00000 

00002 

C1C44  UFDAT10 

CL 

W ( TCNT ) 

01123 

16030 

01205 

CLEAR  COUNT  FOR  MULT.  BY  TIME 
DIFF. 

C  1 04  5 

RJP 

FF 

01124 

65000 

05323 

ACCUMULATE  SUM 

C1C46 

U-TAG  UPADD*UPSUM 

01125 

01231 

01200 

C1C47 

U-TAG  UPSUM*0 

01126 

01200 

OOOCO 

C1C50 

ENT 

B2*B2+ 1 

01127 

12202 

00001 

C1C51 

ENT 

B3*83  +  2 

01130 

12303 

00002 

C1C52 

ENT 

A*B3 

01131 

11003 

OOOCO 

TEST, LAST  PARAMETER  OF  GROUP  B 
EING  USED 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

C1C53 

RSH 

A*  1 

01132 

02000 

00001 

C1C54 

SUB 

A*W(RAMCNT+B5)*AZER0 

01133 

21435 

00772 

C 1055 

JP 

UPDAT04 

01134 

61000 

01075 

C1056 

ENT 

A*W ( DERCNT ) 

01135 

11030 

01204 

C 1 057 

LSH 

A*  1 

01136 

06000 

00001 

C1C60 

ENT 

B7*A 

01137 

12770 

00000 

• 

C 1 06 1 

ENT 

A*CFT  ABLE+B7 

01140 

11007 

01206 

• 

C  1 062 

STR 

A*L ( UPDAT 1 1 ) 

01141 

15010 

01147 

• 

C1C63 

ENT 

A»W(DATATYP1+B5) 

01142 

11035 

01222 

C1C64 

STR 

A  *L ( $♦ 1 ) 

01143 

15010 

01144 

• 

C1C65 

ENT 

B7*B7+0 

01144 

12707 

00000 

• 

C1C66 

STR 

B7*U(UPDATim> 

01145 

16720 

01150 

• 

C  1067 

RJP 

FF 

01146 

65000 

05323 

C1C70  UFDAT11 

U-TAG  UPSUM*0 

01147 

01200 

00000 

Cl  071 

0 

03 

01150 

00000 

00003 

Cl  072 

ENT 

A*  1 

01151 

11000 

00001 

C 1 073 

RPL 

A*Y*W( DERCNT ) 

01152 

24030 

01204 

C1C74 

SUB 

A*W(RAMCNT+B5)*AZER0 

01153 

21435 

00772 

C 1 075 

JP 

UPDAT22 

01154 

61000 

01172 

C1C76 

BSK 

B5*4 

01155 

71500 

00004 

C1C77 

JP 

UPDAT01 

01156 

61000 

01060 

C11C0  UFDATB2 

ENT 

B2*0 

01157 

12200 

00000 

C11C1  UPDATB3 

ENT 

B3*0 

01160 

12300 

00000 

C11C2  UFDATB5 

ENT 

B5*0 

01161 

12500 

00000 

C11C3  UPDATB6 

ENT 

B6*0 

01162 

12600 

00000 

C  1 1 04 

EXIT 

01163 

61010 

01005 

C11C5  UFDAT21 

RJP 

FF 

01164 

65000 

05323 

C 1 106 

U-TAG  UPADD*UPDI FF 

01165 

01231 

01227 

C  1 1 07 

U-TAG  UPADD*02 

01166 

01231 

00002 

ClilO 

ENT 

A  *  1 

01167 

11000 

00001 

cun 

RPL 

A+Y*W{ TCNT ) 

01170 

24030 

01205 

C  1 1 1 2 

JP 

UPDAT06 

01171 

61000 

onio 

Cl 1 13  UFDAT22 

ENT 

A*L ( DERCNT ) 

01172 

11010 

01204 

C1114 

LSH 

A*  1 

01173 

06000 

00001 

C  1 1 1 5 

ENT 

B3*  A 

01174 

12370 

00000 

C  1 1 16 

CL 

W(UPSUM) 

01175 

16030 

01200 

C  1 1 1  7 

CL 

H ( UPSUM+ 1 ) 

01176 

16030 

01201 

C  1 1 20 

JP 

UPDAT03 

01177 

61000 

01073 

• 

C 1 121  UPSUM 

C 

0 

01200 

00000 

00000 

• 

C 1 122 

c 

0 

01201 

00000 

00000 

• 

C 1 123  TCNTFLT 

0 

0 

01202 

00000 

00000 

C 1 124 

0 

0 

01203 

00000 

00000 

C 1 125  DERCNT 

0 

0 

01204 

00000 

00000 

C 1 126  TCNT 

c 

0 

01205 

00000 

oooco 

C 1 127  CFT ABLE 

0 

0 

01206 

00000 

00000 

C 1 130 

0 

0 

01207 

00000 

00000 

C 1 131 

0 

0 

01210 

00000 

00000 

• 

C  1 132 

c 

0 

01211 

00000 

00000 

• 

C  1 133 

0 

0 

01212 

00000 

00000 

• 

C  1 134 

0 

0 

01213 

00000 

00000 

NOTES 


NO 

YES,  DIVIDE  BY  CORRECT  FACTORI 
ALS 

AND  STORE 


ADD  ONE  TO  CNT  FOR  SHICH  DERIV 
ATIVE 

TEST  LAST  DERIVATIVE  OF  GROUP 
CALC. 

NO 

TEST  LAST  PARAMETER  GROUP 
NO 

YES, EXIT 


TIME  MULT.  LOOP 


SATEL 


CARDS 

LI  ID  L/EEL 

TA  STATEMENT 

C 1 135 

C 

0 

C  1 136 

C 

0 

C  1 137 

C 

0 

CHAO 

C 

0 

C 1 1 A  1 

C 

0 

C11A2 

c 

0 

C11A3  DATATYP1 

c 

RAPZERO 

C11AA 

c 

WZERO 

C11A5 

C 

IZEROX 

C11A6 

c 

EZERO 

C11A7 

c 

MZERO 

C115C  UFCIFF 

c 

0 

C1151 

c 

0 

C 1 152  UFADC 

c 

C 

C  1 153 

c 

0 

C115A  DYPRPC 

c 

0 

C 1 155 

c 

37 

C  1 1 56 

c 

73 

Cl  157 

c 

132 

C 1 160 

c 

170 

C1161 

c 

227 

C  1 162 

c 

265 

C  1 163 

0 

32A 

C116A 

0 

363 

C 1 165 

0 

A21 

C  1 166 

0 

A60 

C  1 167 

c 

516 

• 

C117C  DYPRYR 

c 

556 

• 

C1171 

0 

1333 

• 

C  1 172 

c 

2110 

C  1 173 

0 

2665 

C117A 

c 

3  AA  3 

C 1 175 

c 

A220 

C  1 176 

c 

A775 

C  1 1 77 

c 

5552 

C12C0 

c 

6330 

C12C1 

c 

7105 

C12C2 

c 

7662 

C  1  203 

0 

10A37 

C120A 

0 

1 1  21 A 

C12C5 

c 

11771 

C12C6 

c 

125A6 

C12C7  BCAY 

0 

C 1 210  BCAYNCW 

c 

C1211  FLTBDAY 

0 

C1212 

c 

C1213  N ST  I  PE 

c 

C  1 2 1 A 

0 

C1215  FLTNDAY 

0 

C  1 216 

c 

C 1 21 7  TIPETEPP 

0 

C  1220 

0 

C1221  NTIPE1 

0 

OUTPUT  NO.  210 
MCQU ILKIN*7/l/65 


LOC 

F  JKB 

Y 

0121A 

00000 

oooco 

01215 

00000 

00000 

01216 

00000 

oooco 

01217 

00000 

oooco 

01220 

00000 

oooco 

01221 

00000 

00000 

01222 

00000 

006AA 

01223 

00000 

00630 

0122A 

00000 

0C61A 

01225 

00000 

006CO 

01226 

00000 

0056A 

01227 

00000 

00000 

01230 

00000 

00000 

U1231 

00000 

oooco 

01232 

00000 

00000 

01233 

00000 

00000 

0123A 

00000 

00037 

01235 

00000 

00073 

01236 

00000 

00132 

01237 

00000 

00170 

01 2  AO 

00000 

00227 

012A1 

00000 

00265 

012A2 

00000 

0032  A 

012A3 

00000 

00363 

01 2  AA 

00000 

OOA21 

012A5 

00000 

O0A6O 

012A6 

00000 

00516 

012A7 

00000 

00556 

01250 

00000 

01333 

01251 

00000 

02110 

01252 

00000 

02665 

01253 

00000 

03AA3 

0125A 

00000 

0A220 

01255 

00000 

0A77  5 

01256 

00000 

05552 

01257 

00000 

06330 

01260 

00000 

07105 

01261 

00000 

07662 

01262 

00000 

10A37 

01263 

00000 

1 12 1 A 

0126A 

00000 

11771 

01265 

00000 

125A6 

01266 

00000 

OOOCO 

01267 

00000 

00000 

01270 

00000 

00000 

01271 

00000 

OOOCO 

01272 

00000 

00000 

01273 

00000 

00000 

0127A 

00000 

00000 

01275 

00000 

oooco 

01276 

00000 

00000 

01277 

00000 

00000 

01300 

00000 

00000 

NOTES 


1970 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL KIN* 7/1/65 


CAROS 

11  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C 1 222 

C 

01301 

00000 

00000 

Cl  223  V  YE  AR 

c 

0 

01302 

00000 

oooco 

C 1 224 

0 

0 

01303 

00000 

oooco 

C 1 225  VMCNTH 

c 

0 

01304 

00000 

00000 

C 1  226 

0 

0 

01305 

00000 

00000 

Cl  227  BCAYl 

c 

0 

01306 

00000 

oooco 

C123C 

0 

0 

01307 

00000 

00000 

C 1 231  MCALC 

ENTRY 

01310 

61000 

00000 

C 1  232 

CL 

W(EPRESW) 

01311 

16030 

03705 

C 1 233  MCAL3 

STR 

B 1 *L ( MCAL  3B 1 ) 

01312 

16110 

01556 

INIITAL1ZATI ON FOR  CALCULATION 
OF  M  E  I  R 

C1234 

STR 

B2*L ( MCAL  3B2 ) 

01313 

16210 

01557 

C 1235 

STR 

B3*L ( MCAL  3B  3 ) 

01314 

16310 

01560 

C  1  236 

STR 

B4*L( MCAL3B4 ) 

01315 

16410 

01561 

C  1  237 

STR 

B5  *L ( MCAL  3B5 ) 

01316 

16510 

02666 

C 1 240 

ENT 

81*0 

01317 

12100 

00000 

COUNT  FOR  EACH  NEW  TIME 

C1241 

ENT 

B5*0 

01320 

12500 

00000 

INDEX  FOR  STORING  CALL  FUNCTIO 
N 

INDEX  FOR  PARAMETERS  COUNTERS 

C 1 242  MCAL3A 

ENT 

B2*4 

01321 

12200 

00004 

C 1 243 

ENT 

B4  *0 

01322 

12400 

00000 

INDEX  FOR  NEW  TYPE  PARAMETER 

C 1244  MCAL3B 

MOVE 

12D*MZER0+B4*MCALARGU 

01323 

10004 

00564 

MOVE  TO  NEXT  TYPE  INPUT  PARAME 
TER 

01324 

14010 

01326 

01325 

12700 

00013 

01326 

10037 

OOOCO 

01327 

14037 

03547 

01330 

72700 

01326 

C 1  245 

RJP 

MCALCAL 

01331 

65000 

01343 

XYES 

C 1246 

STR 

B7*L(MCALCALEX*2) 

01332 

16710 

01411 

C 1  247 

RJP 

MCALMOO 

01333 

65000 

05266 

C 1250 

ENT 

A*  B2 

01334 

11002 

00000 

TEST  FOR  LAST  TYPE  PARAMETER 

Cl  251 

ADO 

A  *0* ANOT 

01335 

20500 

00000 

X 

Cl  252 

JP 

MCAL3EX 

01336 

61000 

01340 

XYES  BRIND  IN  NEW  T IME 

Cl  253 

ENT 

B4*B4-f  120 

01337 

12404 

00014 

X  NO  CHANGE  INPUT  INDICES 

C 1 254  MCAL3EX 

ENT 

B5*B5+1 

01340 

12505 

00001 

CHANGE  STOREAGE  LOCATION 

C1255 

BJP 

B2*MCAL3B 

01341 

72200 

01323 

NEW  PARAMETERS 

• 

Cl  256 

JP 

MCALCALN 

01342 

61000 

01413 

NEW  TIME 

• 

C 1 257  MCALCAL 

ENTRY 

01343 

61000 

00000 

• 

C 1 260 

STR 

B6*L(MCALCALEX*1) 

01344 

16610 

01410 

INITIALIZATION 

C 1 261 

STR 

B5*L(MCALCALEX) 

01345 

16510 

01407 

C 1  262 

ENT 

B6*0 

01346 

12600 

00000 

COUNT  FOR  WHICH  OMEG 

C 1 263 

ENT 

B5  *0 

01347 

12500 

00000 

COUNT  FOR  MULTIPLICATIONS  BY  ( 
T-TO) 

Cl  264 

CL 

W ( MCALCNT ) 

01350 

16030 

03565 

C 1  265 

MOVE 

2*MCALARGU*MCALSUM 

01351 

10030 

03547 

CALCULATE  FUNC(T) 

01352 

14030 

03563 

01353 

10030 

03550 

01354 

14030 

03564 

• 

Cl 266  MCAL3D0 

ENT 

A*W ( MCALCNT ) 

01355 

11030 

03565 

X  COUNT  FOR  NUMBER  OF  ARGUMENT 

c 

Cl  267 

ADO 

A*  1 

01356 

20000 

00001 

J 

X 

• 

Cl  270 

STR 

A*W ( MCALCNT ) 

01357 

15030 

03565 

X 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKlN*7/l/65 


CARDS 

Li  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

C 1  27  1 

SUB 

A*W(RAMCNT+B2)*AN0T 

01360 

21532 

00772 

• 

C  1 272 

JP 

MCALCALEX 

01361 

61000 

01407 

X 

• 

Cl  273 

ENT 

B6*2+B6 

01362 

12606 

00002 

X 

• 

C 1  274 

ENT 

B7»MCALARGU+B6 

01363 

12706 

03547 

X  PARANS(T-TO) $$N 

• 

C 1 275 

STR 

B7*U(MCALFLT2) 

01364 

16720 

01366 

X  X 

• 

C  1  276 

RJP 

FF 

01365 

65000 

05323 

X  X 

• 

C 1 277  MCALFLT2 

0 

MTIME 

01366 

00000 

03530 

X  X 

• 

C13C0 

U-TAG  MTEMP4*02 

01367 

03744 

00002 

X 

Cl  301  MCAL3AA 

ENT 

B  5  *2  +  B  5 

01370 

12505 

00002 

X  ADD  2  TO  CNT  FOR  MULT  BY  ( T- 
TO) 

C13C2 

ENT 

A*B5 

01371 

11005 

00000 

X  TEST  B6*B5 

C 1 303 

ENT 

Q*  A 

01372 

10070 

OOOCO 

X  X 

C13C4 

ENT 

A*B6 

01373 

11006 

00000 

X  X 

C 1 305 

STR 

A-Q*W(MCALSTORB)»ANOT 

01374 

33530 

03541 

X  X 

C 1 306 

JP 

MCAL3BB 

01375 

61000 

01402 

X  X  YES 

Cl  307 

RJP 

FF 

01376 

65000 

05323 

X  X  ( T-TO ) $ $N 

C 1 31 0 

U-TAG  MTEMP4*MTIME 

01377 

03744 

03530 

X 

C 1  3 1 1 

U-TAG  MTEMP4*02 

01400 

03744 

00002 

X 

Cl  312 

JP 

MCAL3AA 

01401 

61000 

01370 

X 

C 1 31 3  MCAL3BB 

ENT 

B5*U 

01402 

12500 

00000 

PART  OF  SUM  CALCULATED 

Cl  314 

RJP 

FF 

01403 

65000 

05323 

X  ACCUMULATING  THE  SUM 

C  1  31 5 

U-TAG  MCALSUM*MTEMP4 

01404 

03563 

03744 

X 

C 1  3 16 

U-TAG  MCALSUM*00 

01405 

03563 

00000 

X 

C 1  31 7 

JP 

MCAL3DD 

01406 

61000 

01355 

C 1 320  MCALCALEX 

ENT 

B  5  *0 

01407 

12500 

00000 

C 1  32 1 

ENT 

B6*0 

01410 

12600 

OCOOO 

C 1 322 

ENT 

B7  *0 

01411 

12700 

00000 

C 1  323 

EXIT 

01412 

61010 

01343 

C 1 324  MCALCALN 

STR 

B7*L(MCALCALNB7) 

01413 

16710 

01554 

CALCULATE  NC  T (*D( M( TC  C  * 

C  1  32  5 

ENT 

Q* 12000 

01414 

10000 

12000 

C  1  326 

STR 

Q*U ( MC ALNSW ) 

01415 

14020 

01526 

C 1  32  7 

STR 

Q  *U ( MCALC ALN2 ) 

01416 

14020 

01503 

C 1  33  0 

CL 

A* 

01417 

11000 

00000 

C 1  33 1 

ADD 

A  *  1 

01420 

20000 

00001 

C 1  332 

STR 

A*W ( TCNTA ) 

01421 

15030 

04000 

C 1  333 

ENT 

B4*0 

01422 

12400 

00000 

CNT  MULT  BY  (T-TO) 

• 

C 1  334 

ENT 

B6*n 

01423 

12600 

00000 

INDEX  TO  ACCESS  INPUT  PARAMETE 
RS 

• 

C  1  335 

ENT 

B  3  *0 

01424 

12300 

00000 

• 

C  1  336  MCALCALMA 

CL 

A* 

01425 

11000 

OOOCO 

C 1  337 

ADD 

A*  1 

01426 

20000 

00001 

C  1 340 

STR 

A  »W{ MC ALCNT ) 

01427 

15030 

03565 

INDEX  WHICH  INPUT  PARAMETER  0- 

c 

C 1  34 1 

ENT 

B6*2+B6 

01430 

12606 

00002 

J 

C 1  342 

MOVE 

2*M2ER0+B6*MCALSUM 

01431 

10036 

00564 

STORE  Ml «  0MEG1 *  RAMI 

01432 

14030 

03563 

01433 

10036 

00565 

01434 

14030 

03564 

C  1  34 3  MCALCALM 

ENT 

A*W( MC ALCNT ) 

01435 

11030 

03565 

C  1  344 

ADD 

A*  1 

01436 

20000 

00001 

C  1  34  5 

STR 

A*W ( MC  ALCNT 1 

01437 

15030 

03565 

C  1  346 

ENT 

A»W ( MCNT  +  B3 ) 

01440 

11033 

00776 

C  1  347 

SUB 

A*  1» ANOT 

01441 

21500 

00001 

TEST  MORE  THAN  ONE  INPUT  PARAM 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID  L  /BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C 1350 

JP 

MCALCALN5 

01442 

61000 

01547 

NO 

C  1 35 1 

ENT 

A*W  ( MCNT  +  B3 ) 

01443 

11033 

00776 

C 1 352 

SUB 

A*W( MCALC NT )*AN0T 

01444 

21530 

03565 

TEST  MORE  THAN  TWO  INPUT 

C  1353 

JP 

MCALCALN2D 

01445 

61000 

01477 

NO 

C 1 354 

ENT 

B6*2+B6 

01446 

12606 

00002 

Cl  355 

ENT 

B7*MZER0+B6 

01447 

12706 

00564 

C 1  356 

STR 

B7*U(MCALFLT3 ) 

01450 

16720 

01452 

C  1 357 

R  JP 

FF 

01451 

65000 

05323 

2  SM2 

• 

C 1 360  MCALFLT3 

0 

FLTTWO 

01452 

00000 

04012 

X 

• 

C 1  361 

U-TAG  MTEMP5*02 

01453 

03746 

00002 

X 

• 

C 1 362 

R  JP 

FF 

01454 

65000 

05323 

2  SM2  $ ( T-TO )  ETC. 

C 1 363 

U-TAG  MTEMP5»M  T IME 

01455 

03746 

03530 

X 

C 1  364 

U-TAG  MTEMP4*02 

01456 

03744 

00002 

X 

C 1 365  MCALCALN3 

ENT 

B4*l+B4 

01457 

12404 

00001 

CNT  FOR  MULT  B4IT-T0) 

• 

C 1  366 

ENT 

A*  B4 

01460 

11004 

00000 

• 

C 1  36  7 

ADD 

A*  1 

01461 

20000 

00001 

• 

C 1  370 

SUB 

A*W(MCALCNT ) * ANOT 

01462 

21530 

03565 

TEST  FINISH  MULT  BY  CT-Tl 

C  1  37 1 

JP 

MC ALC ALN  4 

01463 

61000 

01470 

YES 

C 1 372 

R  JP 

FF 

01464 

65000 

05323 

NO 

C 1  373 

U-TAG  MTEMP4*MT IME 

01465 

03744 

03530 

C 1  374 

U-TAG  MTEMP4*02 

01466 

03744 

00002 

Cl  375 

JP 

MC ALCALN3 

01467 

61000 

01457 

Cl  376  MCALCALN4 

R  JP 

FF 

01470 

65000 

05323 

ACCUMULATE  THE  SUM 

C 1  377 

U-TAG  MTEMP4*MCALSUM 

01471 

03744 

03563 

X 

C14C0 

U-TAG  MCALSUM*00 

01472 

03563 

00000 

X 

C14C1 

R  JP 

FF 

01473 

65000 

05323 

INCREASE  CONSTANT  TERM 

C 1 402 

U-TAG  FLTTWO*FLTONE 

01474 

04012 

04016 

X 

C14C3 

U-TAG  FLTTW0*00 

01475 

04012 

00000 

X 

C 1 404 

JP 

MCALCALN1 

01476 

61000 

01435 

C 1 405  MCALC ALN2D 

MOVE 

2*  FLTTWOX* FLTTWO 

01477 

10030 

04014 

01500 

14030 

04012 

01501 

10030 

04015 

01502 

14030 

04013 

C14C6  PCALCALN2 

JP 

MC ALCALN2C 

01503 

61000 

01516 

C  1407 

ENT 

B7*MM+B5 

01504 

12705 

03626 

X 

C 14  1  0 

str 

B7*U(MCALCALN2A) 

01505 

16720 

01510 

X 

C  1 41 1 

RJP 

FF 

01506 

65000 

05323 

X 

C  1412 

32D 

MCALSUM 

01507 

00040 

03563 

X 

C1413  MCALC ALN2 A 

0 

11 

01510 

00000 

00011 

X 

C  1 4 1 4 

MOVE 

2*FLTTWOX*FLTTWO 

01511 

10030 

04014 

X 

01512 

14030 

04012 

01513 

10030 

04015 

01514 

14030 

04013 

C  1 4 1  5 

JP 

MCALCAl  2B 

01515 

61000 

01523 

C 1 4 16  MCALCALN2C 

ENT 

B7  *MM-f  B5 

01516 

12705 

03626 

C  141 7 

STR 

B7*U(MCALCALN2E) 

01517 

16720 

01522 

Cl  42  0 

RJP 

FF* 

01520 

65000 

05323 

C 1 42  1 

4  ID 

MCALSUM 

01521 

00051 

03563 

C1422  MCALC ALN2E 

0 

11 

01522 

00000 

00011 

C 1423  MCALCAL2B 

ENT 

A*W(TCNTA) 

01523 

11030 

04000 

C1424 

SUB 

A  *  3* ANOT 

01524 

21500 

00003 

C  1  42  5 

JP 

MCALC ALNB7 

01525 

61000 

01554 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKI N*7/l/65 


CAROS 

11  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

C 1426  MCALNSW 

JP 

MCALORAM 

01526 

61000 

01542 

• 

C 1 42  7 

ENT 

B4*0 

01527 

12400 

00000 

C 1430 

ENT 

B6*  36D 

01530 

12600 

00044 

• 

C1431 

ENT 

B5*  B5+ 1 

01531 

12505 

00001 

• 

C 1432 

ENT 

B3*-3 

01532 

12300 

77774 

• 

C  1433 

ENT 

Q*61000 

01533 

10000 

61000 

C 1 434 

STR 

Q*U ( MC ALNSW ) 

01534 

14020 

01526 

C 1 435 

STR 

Q*U ( MCALCALN2  J 

01535 

14020 

01503 

C 1 4 3 6  MCALNSW1 

ENT 

A*W( TCNTA ) 

01536 

11030 

04000 

• 

Cl  437 

AOO 

A»  1 

01537 

20000 

00001 

• 

C 1 440 

STR 

A*W { TCNTA ) 

01540 

15030 

04  000 

• 

C 1 44  1 

JP 

MCALCALN 1  A 

01541 

61000 

01425 

Cl  442  MCALORAM 

ENT 

B4*0 

01542 

12400 

00000 

C 1 443 

ENT 

B6*48D 

01543 

12600 

00060 

C  1 444 

ENT 

B5  *B5+ 1 

01544 

12505 

00001 

C 1 44  5 

ENT 

B3*-4 

01545 

12300 

77773 

C 1 446 

JP 

MCALNSW1 

01546 

61000 

01536 

C 1 44 7  NCALCALN5 

ENT 

A*W{ TCNTA ) 

01547 

11030 

04000 

C 1 450 

COM 

A*2*YLESS 

01550 

04600 

00002 

C 1 45 1 

R  JP 

SERROR 

01551 

65000 

04053 

• 

C 1 452 

STR 

BO*W ( MM  +  B5 ) 

01552 

16035 

03626 

• 

C  1453 

JP 

MCALCAL2B 

01553 

61000 

01523 

• 

C 1 454  MCALCALNB7 

ENT 

B7*0 

01554 

12700 

00000 

C1455 

ENT 

B6*0 

01555 

12600 

00000 

X 

• 

C 1 456  MCAL3B1 

ENT 

B1*U 

01556 

12100 

OOOCO 

• 

C 1 457  MCAL382 

ENT 

B2*0 

01557 

12200 

00000 

• 

C 1 460  MCAL383 

ENT 

B3  *0 

01560 

12300 

OOOCO 

C1461  MCAL364 

ENT 

B4  *0 

01561 

12400 

00000 

C 1 462  MCALN86 

ENT 

B6*0 

01562 

12600 

00000 

C 1 463  MCORRECT 

ENT 

A  *W ( EQMODE )  * AZERO 

01563 

11430 

00771 

C 1 464 

JP 

MCALPINIT 

01564 

61000 

01613 

C 1 465 

STR 

B6*L ( MTABLEB6 ) 

01565 

16610 

01612 

C 1466 

ENT 

B6  *4 

01566 

12600 

00004 

C  1 4  6  7* 

ENT 

A*W ( DATE ) 

01567 

11030 

03532 

C 1 470 

LSH 

A  *  3 

01570 

06000 

00003 

C 1 47 1 

SUB 

A*H ( DATECON 1 ) 

01571 

21030 

03576 

X  JD-2  *400#  000.5=MJD 

C  1 472 

RSH 

A*  3 

01572 

02000 

00003 

X  RAM=RAM(T)+3.508$10$$-5 
33281) 

C  1 473 

SUB 

A*W ( DATEC0N2 ) 

01573 

21030 

03577 

X 

C 1474 

LSH 

A*  10D 

01574 

06000 

00012 

X  MJD-3  281  GAMMA  10 

• 

C 1 47  5 

ENT 

C*A 

01575 

10070 

OOOCO 

X  3.5 08 $10$$-5(MJD— 33281) 

• 

C1476 

MUL 

WIDATEC0N3) 

01576 

22030 

036C0 

X  GAMMA=43 

• 

C  1477 

LSH 

AQ* 18D 

01577 

07000 

00022 

G  57 

• 

C15C0 

R  JP 

ROUND 

01600 

65000 

04060 

G  27 

• 

C 1  50 1 

ENT 

C*  A 

01601 

10070 

OOOCO 

• 

C15C2 

MUL 

W ( FXDEGRAD  J 

01602 

22030 

03602 

G  56  CORRECT  ION  IN  DEG 

C 1  503 

R  JP 

ROUND 

01603 

65000 

04  06  0 

CONVER  TO  RAD  G  26 

C 1 504  MC0RR01 

STR 

A  *W ( MRAMCOR ) 

01604 

15030 

03527 

G  26 

C 1 505  MTABLERAMX 

ENT 

A*W(MRAMCOR) 

01605 

11030 

03527 

CORRECT  RAM 

C 1 506 

ENT 

Q* W ( MM  +  B6 ) 

01606 

10036 

03626 

C15C7 

R  JP 

SADD 

01607 

65000 

04  073 

X 

C  1 5 1 0 

R  JP 

SOVERFLOW 

01610 

65000 

04046 

C 1  5 1 1 

STR 

A*W( MM+B6 ) 

01611 

15036 

03626 

.  SPURT  OUTPUT  NO.  210 

SAT  EL  MCQUILKIN*7/l/65 


ON 

oo 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C 1 5 1 2  NTABLEB6 

ENT 

B6*0 

01612 

12600 

00000 

C 1 5 1 3  MCALPINIT 

STR 

B6*L ( MC ALXB6 ) 

01613 

16610 

02665 

C 1  5 14 

STR 

B4*L(MCALAB4) 

01614 

16410 

02667 

C 1  5 1  5 

ENT 

B6*0 

01615 

12600 

00000 

C  1 5 1 6 

ENT 

B4*0 

01616 

12400 

00000 

C1517 

RJP 

S  INI  I 

01617 

65000 

04136 

X 

C 1  520 

ENT 

Q*W(  I  I S  IN  ) 

01620 

10030 

03645 

SINSS2I 

C 1  52 1 

MUL 

W ( IISIN) 

01621 

22030 

03645 

X  GAMMA=56 

C 1 522 

LSH 

AQ*2 

01622 

07000 

00002 

X  GAMMA=58 

C  1 523 

RJP 

ROUND 

01623 

65000 

04060 

X  GAMMAS28 

C 1  524 

STR 

A  *W ( MC ALC0N3 ) 

01624 

15030 

03545 

X 

Cl  52 5  MCALP 

NO-OP 

01625 

12000 

00000 

C  1 526 

RJP 

FF 

01626 

65000 

05323 

C  1  527 

32D 

NN 

01627 

00040 

03633 

Cl  530 

U-TAG  MCALNFLT  *10 

01630 

04031 

00010 

C 1  53  1 

RJP 

FF 

01631 

65000 

05323 

C  1 532 

U-TAG  MCALNFLT *MCALNFLT 

01632 

04031 

04031 

Cl  533 

U-TAG  MCALNFLT  *02 

01633 

04031 

00002 

C 1 534 

RJP 

FF 

01634 

65000 

05323 

• 

C 1 53  5 

35D 

MCALGM 

01635 

00043 

03571 

• 

C 1  536 

U-TAG  GMFL  T  *  10 

01636 

04033 

00010 

• 

C  1  537 

RJP 

FF 

01637 

65000 

05323 

C 1  540 

U-TAG  GMFLT*MCALNFLT 

01640 

04033 

04031 

C 1  54 1 

U-TAG  MCALNFLT  *03 

01641 

04031 

00003 

C  1 542 

RJP 

FF 

01642 

65000 

05323 

C  1  543 

17D 

MCALNFLT 

01643 

00021 

04031 

C 1 544 

U-TAG  MCALGMN2*! 1 

01644 

04035 

00011 

C 1  54  5 

ENT 

A*W ( MC ALGMN2 ) 

01645 

11030 

04035 

C 1  546 

ENT 

Q  *  17D 

01646 

10000 

00021 

C 1  54  7 

RJP 

CBROOT 

01647 

65000 

04645 

CUBE  ROOT,  OF  GM/NSS2 

C 1  55  0 

LSH 

A  *6 

01650 

06000 

00006 

GAMMA  23 

C 1  55  1 

STR 

A*W ( MCALGM3 ) 

01651 

15030 

03524 

GAMMA  23 

C 1  552 

ENT 

C*W ( EE  ) 

01652 

10030 

03627 

X 

Cl  553 

MUL 

W(  EE) 

01653 

22030 

03627 

X  ESS2  GAMMA*58 

C 1  554 

RJP 

ROUND 

01654 

65000 

04060 

X 

Cl  555 

ENT 

Q*A 

01655 

10070 

00000 

X 

C 1  556 

ENT 

A  *W ( F  I XONE ) 

01656 

11030 

03606 

X  GAMMA*28 

C 1  557 

RJP 

SSUB 

01657 

65000 

04114 

X  1-ESS2  GAMMA*28 

C 1  560 

RJP 

SOVERFLOW 

01660 

65000 

04046 

C 1  56 1 

STR 

A  *W ( MC ALCON 1 ) 

01661 

15030 

03543 

C 1  562 

ENT 

Q*  A 

01662 

10070 

00000 

X 

C  1  563 

MUL 

W ( MCALGM3 ) 

01663 

22030 

03524 

GAMMA  51 

Cl  564 

LSH 

AQ*4 

01664 

07000 

00004 

GAMMA  55 

Cl  565 

RJP 

ROUND 

01665 

65000 

04060 

GAMMA  25 

C  1 566 

STR 

A  * W ( PP  ) 

01666 

15030 

03702 

X 

C 1 567 

ENT 

Q*A 

01667 

10070 

00000 

PSS2 

C 1  570 

MUL 

W(PP) 

01670 

22030 

03702 

GAMMA  50 

C 1  57 1 

LSH 

AO*  1 

01671 

07000 

00001 

GAMMA  51 

C 1572 

RJP 

ROUND 

01672 

65000 

04060 

GAMMA  21 

C 1  573 

STR 

A*W ( MCALP2 ) 

01673 

15030 

03525 

C 1  574 

CL 

Q* 

01674 

10000 

OOOCO 

C 1  575 

ENT 

A*W(MCALA2) 

01675 

11030 

03621 

G  29 

C 1  576 

RSH 

AQ*  5 

01676 

03000 

00005 

GAMMA  54 

G  17 


SATEL 


SPURT 


ON 

NO 


CARDS 


LI  ID 

LABEL 

TA  STATEMENT 

C 1  577 

DIV 

W ( PP ) *NOOF 

C16C0 

RJP 

SOVERFLOW 

C 1601 

LSH 

A*  1 

C16C2 

COM 

A*W( PP  )  *YMORE 

C1603 

ADD 

Q*  1 

C16C4 

STR 

Q*W ( MC AL A2P  ) 

C 1 605 

MC  ALA 

ENT 

Q *W ( F I X  32  ) 

C 1606 

PUL 

W( MCALC0N3) 

C 1 607 

LSH 

AQ*2 

C1610 

RJP 

ROUND 

C  1 61 1 

ENT 

Q*  A 

C1612 

ENT 

A*W  (  F I XONE ) 

C 1 61 3 

RJP 

SSUB 

C  1614 

RJP 

SOVERFLOW 

C 16 1 5 

STR 

A»W ( MCALS  TORA ) 

C 1 61 6 

ENT 

A*W ( MC ALCON 1 ) 

C1617 

RSH 

A*  2 

C1620 

RJP 

SORT 

C1621 

RJP 

SERROR 

C 1622 

LSH 

A*  1 

C 1 62  3 

STR 

A*W  ( MCALC0N4 ) 

C 1624 

ENT 

Q*W( HCALSTORA ) 

Cl  625 

PUL 

VI  (  MCALC0N4 ) 

C 1 626 

LSH 

AQ*2 

C 1 627 

RJP 

ROUND 

C 1630 

STR 

A*W(MCALST0R1 ) 

C 1 63 1 

CL 

Q* 

C 1632 

ENT 

A* W ( MCAL A2 ) 

C 1633 

RSH 

AQ*6 

C 1634 

CIV 

WIMCALP2) *NOOF 

C 1 635 

RJP 

SOVERFLOW 

C 1636 

LSH 

A*  1 

C  1637 

COM 

A*W(MCALP2)*YM0RE 

C 1 640 

ADD 

Q  *  1 

C  1 64 1 

STR 

Q*W( MCALA2P2 ) 

C 1 642 

PUL 

W  (  F  I  X  1  3  ) 

C  1 643 

RJP 

ROUND 

Cl  644 

ENT 

Q»A 

C  1645 

PUL 

W ( PCALST0R1 ) 

C  1 646 

RSH 

AQ*  1 

C  1  647 

RJP 

ROUND 

Cl  650 

ENT 

Q*  A 

C 1 65 1 

ENT 

A*W( FIXONE) 

C 1 652 

RJP 

SSUB 

C 1 653 

RJP 

SOVERFLOW 

C 1  654 

ENT 

C*  A 

Cl  655 

PUL 

W ( MC ALGM3 ) 

C 1 656 

LSH 

AQ«4 

C 1 65  7 

RJP 

ROUND 

C 1 660 

STR 

A»W ( A A  ) 

C 1 66 1 

ENT 

B5*B5+1 

OUTPUT  NO.  210 
MCQUlLKIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

01677 

23230 

03702 

G  29 

01700 

65000 

04046 

01701 

06000 

000C1 

01702 

04730 

037C2 

01703 

26000 

00001 

01704 

14030 

04044 

G  29 

01705 

10030 

03572 

X  3/2SSINSV2I  GAMMA-56 

01706 

22030 

03545 

01707 

07000 

00002 

X  GAMMA*58 

01710 

65000 

04  06  0 

X  GAMMA*28 

01711 

10070 

OOOCO 

X 

01712 

11030 

03606 

X  GAMMA=28 

01713 

65000 

04114 

X  1-3/2SS INSS2 I  GAMMA*28 

01714 

65000 

04046 

01715 

15030 

03540 

01716 

11030 

03543 

01717 

02000 

00002 

G*26 

01720 

65000 

05504 

CALCULATED  SQRT(1-E$$2> 

01721 

65000 

04053 

01722 

06000 

00001 

G*  28 

01723 

15030 

03546 

01724 

10030 

03540 

01725 

22030 

03546 

X(l-3/2$SIN$S2I)SQRTl-ES$2  GAM 
MA=56 

01726 

07000 

00002 

X 

01727 

65000 

04  060 

X  GAMMA=28 

01730 

15030 

03533 

X 

01731 

10000 

00000 

X 

01732 

11030 

03621 

X  GAMMA*29 

01733 

03000 

00006 

GAMMA  53 

01734 

23230 

03525 

GAMMA  32 

01735 

65000 

04046 

01736 

06000 

00001 

X 

01737 

04730 

03525 

X 

01740 

26000 

00001 

X 

01741 

14030 

03523 

GAMMA  32 

01742 

22030 

03575 

X  GAMMA=57 

01743 

65000 

04060 

X  GAMMA*27 

01744 

10070 

00000 

X 

01745 

22030 

03533 

X  GAMMA*55 

01746 

03000 

00001 

GAMMA  28 

01747 

65000 

04060 

X  GAMMA*28 

01750 

10070 

00000 

X 

01751 

11030 

03606 

X 

01752 

65000 

04114 

X  1-1/3SA2/P2C 1-3/2SINSS2I )SQR 
T1-ESS2  28 

01753 

65000 

04046 

01754 

10070 

00000 

X 

01755 

22030 

03524 

X  GM/NS$2)$Sl/3( 1-ESS2) 

01756 

U7000 

00004 

01757 

65000 

04  060 

X  GAMMA«25 

01760 

15030 

03636 

X 

01761 

12505 

00001 

satel 


SPURT 


-0 

o 


CARDS  LI  ID  LABEL 

.  C 1 662 

.  C 1 66  3 

.  C 1 664 

.  C  1 66  5 

.  C  1 666 

.  C 1 667 

.  C 1 670 

.  C1671 

.  C 1 672 

C  1  67  3 
.  C 1 674 

.  C 1675 

.  C 1676 

.  C  1 677 

.  C17C0 

.  C1701 

.  C17C2 

.  C 1 703 

.  C17C4  M  CALC  A  1 

.  C 1 705 

.  C17C6 

.  C17C7 

.  C1710 

.  C1711  MCALCA2 

.  C 1 7 1 2  MCALR 

.  C  1  7 1  3 

.  C 1 7 14 

.  C 1 71 5 

.  C 1 71 6 

.  C  1  7 1  7 

.  C 1 720 

.  C1721 

.  C 1 722 

C 1  723 
.  C 1 724 

.  C 1 725 

.  C 1 726 

.  C 1 727  DELL 

.  C 1 730 

.  C1731 

.  C 1 732 

.  C 1 733 

.  C 1 734 

.  C  1  7  3  5 

.  C 1 736 

.  C 1  73  7 

.  C1740 

.  Cl  741 

.  C 1 742 

.  Cl  74  3 

.  C  1 744 

.  C  1  74  5 


TA  STATEMENT 


STR 

A  *W { MM  +  B5 ) 

R  JP 

PREDICTE 

R  JP 

S  INVV 

ENT 

A*W( VVSIN ) 

RSH 

A  *  2 

ENT 

Q  *  26D 

R  JP 

ASINX 

RJP 

SERROR 

RSH 

A  *  1 

STR 

A  *  W  (  V  V  ) 

ENT 

A  * W ( VVCOS ) *  ANEG 

JP 

MCALCA1 

ENT 

A  *W ( TWP I 26 ) 

RSH 

A  *  1 

ENT 

C*W( VV ) 

RJP 

SSUR 

RJP 

SOVERFLOW 

JP 

MCALCA2 

ENT 

A  *  W ( V V 1  * ANEG 

JP 

MCALCA2 

ENT 

Q  *W ( T  WP I 26 ) 

RJP 

SACD 

RJP 

SOVERFLOW 

STR 

A*W( VV  ) 

ENT 

Q *W ( EE  ) 

MUL 

W( EVALCOS) 

LSH 

AQ*  1 

RJP 

ROUND 

ENT 

Q  *  A 

ENT 

A  * W ( F I XONE ) 

RJP 

SSUB 

RJP 

SOVERFLOW 

ENT 

G*  A 

MUL 

W(  AA) 

LSH 

A  Q  *  1 

RJP 

ROUND 

STR 

A  *  W ( RR ) 

ENT 

Q*W(MCALC0N3) 

MUL 

W  (  F  I X  5  2  ) 

LSH 

AQ*  2 

RJP 

ROUND 

ENT 

Q*  A 

ENT 

A  *W ( F I  XT  WO ) 

RJP 

SSUB 

RJP 

SOVERFLOW 

STR 

A  *W ( MC ALS  TOR  A ) 

ENT 

C*W( VVSIN  ) 

MUL 

W  (  EE  ) 

RSH 

AQ  *  1 

RJP 

ROUND 

ENT 

C»W(MM  ) 

RJP 

SSUB 

OUTPUT  NO.  210 
MCQUlLKlN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

01762 

15035 

03626 

01763 

65000 

04225 

01764 

65000 

04  5C2 

01765 

11030 

03673 

CALCULATE  V 

01766 

02000 

00002 

01767 

10000 

00032 

01770 

65000 

05657 

01771 

65000 

04  05  3 

01772 

02000 

000C1 

G AMM A=26 

01773 

15030 

03672 

GAMMA-26 

01774 

11730 

03674 

PUT  V  IN  COFRECT  QUADRANT 

01775 

61000 

020C4 

COS  POS 

01776 

11030 

04025 

COS  NEG  180-V 

01777 

02000 

0C001 

X 

02000 

10030 

03672 

X 

02001 

65000 

04  114 

X 

02002 

65000 

04046 

X 

02003 

61000 

02011 

02004 

11730 

03672 

COS  POS-IS  V  NEG 

02005 

61000 

02011 

NO 

02006 

10U30 

04025 

YES  360+ V 

02007 

65000 

04073 

X 

02010 

65000 

04  04  6 

X 

02011 

15030 

03672 

STORE  CORRECT  V 

02012 

10030 

03627 

CALCULATE  R  A(l-ESCOSE) 

02013 

22030 

03624 

X 

G AMMA  =  5  7  ECOSE 

02014 

07000 

000C1 

X 

GAMMA=58 

02015 

65000 

04  06  0 

X 

GAMMA- 26 

02016 

10070 

OOCCO 

X 

02017 

1103C 

036C6 

X 

GAMMA=28 

02020 

65000 

04114 

X 

1-ECOE  GAMMA=  28 

02021 

65000 

04  04  6 

02022 

10070 

OCOCO 

X 

02023 

22030 

03636 

X 

AU-ECOSt)  GAMMA  =  5  3 

02024 

07000 

000C1 

X 

GAMMA=54 

02025 

65000 

04  06  0 

X 

GAMMA=24 

02026 

15030 

03622 

X 

02027 

10030 

03545 

02030 

22030 

03616 

X 

XSINSS21 $5/2  GAMM A=  55 

02031 

07000 

000C2 

X 

X  GAMMA-57 

02032 

65000 

04  06  0 

X 

X 

02033 

10070 

OCOCO 

X 

X  GAMMA=27 

02034 

11030 

03607 

X 

X  GAMM A  =  2  7 

02035 

6  5000 

04114 

X 

XI2-5/2SS INISS2)  CALCULATED 

02036 

65000 

04  04  6 

02037 

15030 

03540 

X 

02040 

10030 

03673 

X 

GAMMA=28 

02041 

22030 

03627 

X 

ESSIN  V  GAMMA*5 7 

02042 

03000 

000C1 

X 

GAMM A=56 

02043 

65000 

04  06  0 

X 

GAMM A*26 

02044 

10030 

03626 

X 

02045 

65000 

04114 

X 

(ESSIN  V)-M  GAMM A=26 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN-7/1/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

C 1 746 

RJP 

SOVERFLOW 

02046 

65000 

04  046 

• 

C 1  747 

ENT 

Q*W ( VV ) 

02047 

10030 

03672 

X  GAMMA-26 

• 

C 1 750 

RJP 

SADD 

02050 

65000 

04073 

X  (ESSIN  VI-M+V  GAMMA-26  CAL 
CULATED 

• 

C1751 

RJP 

SOVERFLOW 

02051 

65000 

04046 

• 

C 1  752 

ENT 

Q*A 

02052 

10070 

00000 

X 

• 

C1753 

MUL 

W ( MC ALSTORA ) 

02053 

22030 

03540 

X  (2-5/2SSINISS2) (V-M+ESSINV) 
CALCULATED 

C 1754 

RJP 

ROUND 

02054 

65000 

0406  0 

X  GAMMA-23 

• 

C 1755 

STR 

A« W  ( MC ALS  TOR 1  ) 

02055 

15030 

03533 

X 

• 

C 1756 

ENT 

A«W ( MCALCON 1 ) 

02056 

11030 

03543 

2B  2/3SEI 1-ESS2/2-I SORT 1-ES2 ) ) 
SINV 

• 

C 1 757 

RSH 

A  *  2 

02057 

02000 

OOOC2 

G-26 

C 1 760 

RJP 

SORT 

02060 

65000 

05504 

X  SQ  RT  OF  1-ESS2  GAMMA-28 

C 1 76 1 

RJP 

SERROR 

02061 

65000 

0405  3 

C 1 762 

LSH 

A*  1 

02062 

06000 

00001 

G-28 

C 1 763 

STR 

A*W ( MC ALC0N4 ) 

02063 

15030 

03546 

X  STORE  SORT  FOR  FUTURE  USE 

C 1 764 

ENT 

Q*W  CEE) 

02064 

10030 

03627 

X 

C 1 765 

MUL 

W  (  EE ) 

02065 

22030 

03627 

X  ESS2  GAMMA-56 

• 

C  1 766 

RSH 

AQ*  1 

02066 

03000 

00001 

X  E  $$2/2  GAMMA-58 

• 

Cl  767 

RJP 

ROUND 

02067 

65000 

0406  0 

X 

• 

C 1 770 

ENT 

Q«  A 

02070 

10070 

00000 

X  GAMMA-28 

• 

C 1  771 

ENT 

A*W ( F IXONE ) 

02071 

11030 

03606 

X  GAMMA-28 

C  1772 

RJP 

SSUB 

02072 

65000 

04114 

2 B  l-E$$2/2  GAMMA-28 

C 1 773 

RJP 

SOVERFLOW 

02073 

65000 

04046 

Cl  774 

ENT 

Q  «W ( MC ALC0N4 ) 

02074 

10030 

03546 

X  GAMMA-28 

C  1 775 

RJP 

SSUB 

02075 

65000 

04114 

X  l-E$$2/2-(SQRTl-E$$2)  GAMM 
A-28 

• 

C 1 776 

RJP 

SOVERFLOW 

02076 

65000 

0404  6 

• 

C 1777 

ENT 

Q*  A 

02077 

10070 

00000 

X 

• 

C2000 

MUL 

W( VVSIN) 

02100 

22030 

03673 

X  (l-E$$2/2-(SQRTl-E$$2) ) SINV 
GAMMA-56 

C2C01 

LSH 

AQ«1 

02101 

07000 

00001 

X  2( l-E$$2/2-( SQRT1-E$$2 ) )SINV 
GAMMA-56 

C2C02 

RJP 

ROUND 

02102 

65000 

0406  0 

X  X 

C2CC3 

STR 

A* W ( MC ALS  T0R2 ) 

02103 

15030 

03534 

X  X  STORED  GAMMA-26 

C2CC4 

ENT 

Q*W ( EE ) 

02104 

10030 

03627 

X  X  GAMMA-29 

C20C5 

MUL 

W ( F  1X3  ) 

02105 

22030 

03610 

X  X  3SE  GAMMA-56 

C20C6 

RJP 

ROUND 

02106 

65000 

04060 

X  X  GAMMA-26 

C2CC7 

STR 

A*W(MCALST0R3) 

02107 

15030 

03535 

X  X 

C2010 

CL 

Q* 

02110 

10000 

00000 

X 

• 

C2011 

ENT 

A*W(MCALST0R2) 

02111 

11030 

03534 

X  X 

• 

C2C12 

RSH 

AQ*1 

02112 

03000 

00001 

G  55 

• 

C2013 

CIV 

W ( MCALST0R3 ) *NOOF 

02113 

23230 

03535 

X  XDIVIDED  BY  3$$E  GAMMA-29 

• 

C2C14 

RJP 

SOVERFLOW 

02114 

65000 

04046 

• 

C2C15 

LSH 

A  *  1 

02115 

06000 

00001 

X  X 

• 

C2016 

COM 

A*W(MCALSTUR3)*YM0RE 

02116 

04  730 

03535 

X  X 

• 

C2C17 

ADD 

Q*  1 

02117 

26000 

00001 

X  X 

• 

C2C20 

STR 

Q*W(MCALST0R2) 

02120 

14030 

03534 

X  X  CALCULATED  GAMMA-29 

C2021 

ENT 

Q*W ( VV  ) 

02121 

10030 

03672 

2  C ( 1  —  ( SORT  1 -ESS 2 1 )S IN2V/6 

C2C22 

MUL 

W( FIXTWO) 

02122 

22030 

03607 

X  X2SV  GAMMA-53 

C2C23 

RJP 

ROUND 

02123 

65000 

04  060 

X  X  GAMMA-23 

.  SPURT  OUTPUT  NO.  210 

SATfcL  MCQUILKlN*7/l/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2C24 

ENT 

Q*  23D 

02124 

10000 

00027 

X  X 

C2C25 

RJP 

SINX 

02125 

65000 

05357 

X  X  SIN2V  GAMMA*28 

C2C26 

STR 

A»W( MCALC0N5 ) 

02126 

15030 

03517 

C2C27 

STR 

A*W( MCALST0R3 ) 

02127 

15030 

03535 

X  X 

C2030 

ENT 

A»W( F IXONE ) 

02130 

11030 

036C6 

X  X  GAMMA=28 

C2C31 

ENT 

Q*W ( MC ALC0N4 ) 

02131 

10030 

03546 

X  X 

C2C32 

RJP 

SSUB 

02132 

65000 

04114 

X  X  1-ISQRT1-ESS2)  GAMMA*28 

C2U33 

RJP 

SOVERFLOW 

02133 

65000 

04  046 

C2C34 

ENT 

Q«  A 

02134 

10070 

OCOCO 

X  X 

C2C35 

MUL 

WIMCALST0R3) 

02135 

22030 

03535 

X  XI1-ISQRT1-EJS2) )SIN2V  GAMMA 
=  56 

C2C36 

RSH 

AQ  *  1 

02136 

03000 

0C0C1 

G  55 

C2C37 

CIV 

W ( F  I X6  ) *NOOF 

02137 

23230 

03611 

X  X  GAMMA*29 

C2C40 

RJP 

SOVERFLOW 

02140 

65000 

04  04  6 

C2C41 

LSH 

A  *  1 

02141 

06000 

000G1 

X  X 

C2C42 

COM 

A  *  W  I  F  IX6)*YM0RE 

02142 

04730 

0361  1 

X  X 

C2C43 

ADD 

0*1 

02143 

26000 

00001 

X  { 1-(SQRT1-ES$2 ))S IN2V/6  CAL 
CULATED 

C2044 

STR 

C*W{ MCAlSToR  3 ) 

02144 

14030 

03535 

X 

C2C45 

ENT 

0  »  W ( MC  ALCON  3 ) 

02145 

10030 

03545 

2AI1-3/2SSINSS2I) 

C2C46 

MUL 

W  (  F  I X  3  I 

02146 

22030 

03610 

X  X  3SSINSS2I  GAMMA=55 

C2C47 

CIV 

W ( F  IXTWO) *NCOF 

02147 

23230 

036C7 

X  X  3SS1NSS2I/2  GAMMA* 28 

C2C50 

RJP 

SOVERFLOW 

02150 

65000 

04  046 

C2C51 

LSH 

A*  1 

02151 

06000 

000C1 

X  X 

C2052 

COM 

A*W(FIXTWO)*YMORE 

02152 

04730 

03607 

X  X 

C2C53 

ADD 

0*1 

02153 

26000 

000C1 

X  X 

C2C54 

ENT 

A  * W { F  I  XONE ) 

02154 

11030 

036C6 

X  X  G AMM A  =  2  8 

C2055 

RJP 

SSUB 

02155 

65000 

04114 

X  { 1-3/2SSINSS2I)  GAMMA*2  8  CA 
LCULATEU 

C2C56 

RJP 

SOVERFLOW 

02156 

65000 

0404  6 

C2C57 

STR 

A#W{ MCALSTORA ) 

02157 

15030 

03540 

X 

C2C60 

ENT 

A*W(MCALST0R2) 

02160 

11030 

03534 

X  GAMMA=29 

C2C61 

ENT 

Q*W(MCALST0R3) 

02161 

10030 

03535 

X  GAMMA*29 

C2C62 

RJP 

SACD 

02162 

65000 

04  07  3 

2B+2C  G AMMA=29 

C2C63 

RJP 

SOVERFLOW 

02163 

65000 

0404  6 

C2C64 

ENT 

0  *  A 

02164 

10070 

OOOCO 

X 

C2C65 

MUL 

W ( MCALSTOR A ) 

02165 

22030 

03540 

2A(2B*2C)*2  GAMMA*  57 

C2C66 

RJP 

ROUND 

02166 

65000 

04  060 

X  GAMMA*  27 

C2067 

STR 

A«W(MCALST0R2) 

02167 

15030 

03534 

X  2  CALCULATED 

C2C70 

ENT 

Q»W ( MC ALC0N3 ) 

02170 

10030 

03545 

3  ( 1/2-5/6SS1NSS2 I ) ESS  INI V*20M 
EG) 

C2C71 

MUL 

WIFIX56) 

02171 

22030 

03613 

3AI1/2-5/6SSINSS2I )  GAMMA* 

57 

X  X  GAMMA=58 

C2C72 

LSH 

A  0  *  1 

02172 

07000 

0C0C1 

C2C73 

RJP 

ROUND 

02173 

65000 

04  060 

X  X  GAMMA* 28 

C2C74 

ENT 

C*  A 

02174 

10070 

OCOCO 

X  X 

C2C75 

ENT 

A*W(FIXONE) 

02175 

11030 

036C6 

X  X  GAMMA* 28 

C2C76 

RSH 

A*  1 

02176 

02000 

000C1 

X  X  1/2  GAMM A=28 

C2C77 

RJP 

SSUB 

02177 

65000 

04114 

X  X  1/2-5/6SSINSS2I  GAMMA*28 

C2  ICO 

RJP 

SOVERFLOW 

02200 

65000 

04  046 

C21C1 

STR 

A*W ( MCALS  TURA  ) 

02201 

15030 

03540 

X  X 

satel 
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LI  10  LABEL 
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F  JKB 

Y 

NOTES 

C21C2 

ENT 

Q»W(ZOMEGA) 

02202 

10030 

03631 

X  X 

C2103 

MUL 

W(FIXTWO) 

02203 

22030 

03607 

3B(E$SIN(V -f 20MEG ) ) 

GAMMA*53 

C2104 

RJP 

ROUND 

02204 

65000 

04060 

X  X  20MEG 

GAMMA*23 

C2105 

ENT 

Q*W(VV> 

02205 

10030 

03672 

X  X 

C21C6 

RSH 

Q*3 

02206 

01000 

00003 

X  X 

GAMMA*23 

C21C7 

RJP 

SADD 

02207 

65000 

04073 

X  X  V+20MEG 

GAMMA*23 

C2110 

RJP 

SOVERFLOW 

02210 

65000 

04046 

C2111 

ENT 

Q*23D 

02211 

10000 

00027 

X  X 

C2112 

RJP 

SINX 

02212 

65000 

05357 

X  X  SIN ( V+2W )  GAMMA 

*28 

C2113 

STR 

A*W ( MCALC0N6  > 

02213 

15030 

03520 

C2114 

ENT 

Q*A 

02214 

10070 

00000 

X  X 

• 

C2115 

MUL 

W  (  EE  ) 

02215 

22030 

03627 

X  X  E$SIN(V*20MEG> 

GAMMA*57 

• 

C2116 

LSH 

AQ*2 

02216 

07000 

00002 

X  X 

GAMMA*59 

• 

C2117 

RJP 

ROUND 

02217 

65000 

04060 

X  X 

GAMMA*29 

C2120 

ENT 

Q*A 

02220 

10070 

OCOOO 

X  X 

• 

C2121 

MUL 

W ( MCALSTORA ) 

02221 

22030 

03540 

X  3  CALCULATED 

GAMMA*57 

♦ 

C2122 

RJP 

ROUND 

02222 

65000 

04060 

X 

GAMMA*27 

• 

C2123 

STR 

A*W(MCALST0R3> 

02223 

15030 

03535 

X 

C2124 

ENT 

Q*W ( MC ALC0N3 ) 

02224 

10030 

03545 

4  (l/2-7/12$SIN$$2I )SIN2(V+0ME 
G) 

4A(l/2-7/12$SIN$$2I )GAMMA-57 

C2125 

MUL 

W ( F I X7 12 ) 

02225 

22030 

03614 

m 

C2126 

LSH 

AQ*2 

02226 

07000 

00002 

X  X  GAMMA-59 

• 

C2127 

RJP 

ROUND 

02227 

65000 

04060 

X  X 

GAMHA*29 

• 

C2130 

ENT 

<2*A 

02230 

10070 

00000 

X  X 

C2131 

ENT 

A*W ( F I X 12  ) 

02231 

11030 

03615 

X  X 

GAMMA*29 

C2132 

RJP 

SSUB 

02232 

65000 

04114 

X  X 

GAMMA*29 

C2133 

RJP 

SOVERFLOW 

02233 

65000 

04046 

C2134 

STR 

A*W( MCALSTORA  ) 

02234 

15030 

03540 

X  X 

C2135 

ENT 

A*W  ( VV  ) 

02235 

11030 

03672 

4B ( S I N2 ( V+OMEG ) > 

GAMMA*26 

C2136 

RSH 

A*  1 

02236 

02000 

00001 

X  X 

GAMMA*25 

C2137 

ENT 

Q*W ( ZOMEGA ) 

02237 

10030 

03631 

X  X 

GAMMA*26 

C2140 

RSH 

Q*1 

02240 

01000 

00001 

X  X 

GAMMA*25 

C  2  14 1 

RJP 

SADD 

02241 

65000 

04073 

X  X  V+OMEG 

GAMMA*25 

C2142 

RJP 

SOVERFLOW 

02242 

65000 

04046 

C2143 

ENT 

Q*  A 

02243 

10070 

00000 

X  X 

C2144 

MUL 

W( FIXTWO) 

02244 

22030 

03607 

X  X  2 ( V+OMEG ) 

GAMMA*52 

C2145 

RJP 

ROUND 

02245 

65000 

04  060 

X  X 

GAMMA*22 

C2146 

ENT 

Q»22D 

02246 

10000 

00026 

X  X 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 
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LI  ID  LJBEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 
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C2147 

RJP 

SINX 

02247 

65000 

05357 

X 

X  SIN2IV+W) 

GAMMA 

=  28 

C2150 

STR 

A*W ( MCALC0N7 ) 

02250 

15030 

03521 

X 

X 

C2151 

ENT 

Q*A 

02251 

10070 

00000 

X 

X 

C2152 

MUL 

W ( MCALSTORA ) 

02252 

22030 

03540 

4  A  $4  B=4 

GAMMA*57 

C2153 

RJP 

ROUND 

02253 

65000 

04060 

X 

GAMMA*27 

C2154 

STR 

A*W(MCALST0R4) 

02254 

15030 

03536 

X 

C2155 

ENT 

C*W( VV ) 

02255 

10030 

03672 

5 

(E/6$C0S$$2I$SIN( 3V+20MEG) 

C2156 

MUL 

W( FIX3) 

02256 

22030 

03610 

5  A  S  I N  (  3V+20MEG ) 

GAMMA*  53 

C2157 

RJP 

ROUND 

02257 

65000 

04  06  0 

X 

X  3  V 

GAMMA*23 

C2160 

STR 

A*W  ( MCALSTORA ) 

02260 

15030 

03540 

X 

X 

C2161 

ENT 

Q*W ( ZOMEGA ) 

02261 

10030 

03631 

X 

X 

C2162 

MUL 

W( FIXTwO) 

02262 

22030 

03607 

X 

X  20MEG 

GAMMA*53 

C2163 

RJP 

ROUND 

02263 

65000 

04  06  0 

X 

X 

GAMMA*23 

C2 164 

ENT 

0*W( MCALSTORA ) 

02264 

10030 

03540 

X 

X 

C2165 

RJP 

S  ADD 

02265 

65000 

04073 

X 

X 

GAMMA*23 

C2166 

RJP 

SOVERFLOW 

02266 

65000 

04046 

C2167 

ENT 

Q*  23D 

02267 

10000 

00027 

X 

X 

C2170 

RJP 

SINX 

02270 

65000 

05357 

X 

S I N ( 3 V+2W ) 

GAMMA 

=  28 

C2171 

STR 

A*W ( MC ALC0N8 ) 

02271 

15030 

03522 

X 

C2172 

STR 

A*W  ( MCALSTORB  ) 

02272 

15030 

03541 

X 

C2173 

ENT 

C*W( IICOS) 

02273 

10030 

03646 

X 

GAMMA=28 

C2174 

MUL 

W(  IICOS) 

02274 

22030 

03646 

5BC0SSS2I 

GAMMA*56 

C2175 

RJP 

ROUND 

02275 

65000 

04060 

X 

GAMMA=26 

C2176 

ENT 

Q*  A 

02276 

10070 

OOOCO 

X 

C2177 

MUL 

W(MCALSTORB) 

02277 

22030 

03541 

X 

COSSS2IS5A 

GAMMA=54 

C22C0 

RJP 

ROUND 

02300 

65000 

04060 

X 

GAMMA*24 

C22C1 

ENT 

Q*  A 

02301 

10070 

OCOCO 

X 

C22C2 

MUL 

W(  EE) 

02302 

22030 

03627 

X 

ES5BS5A 

GAMMA*53 

C22C3 

LSH 

AQ*  1 

02303 

07000 

00001 

X 

GAMMA*54 

C22C4 

RJP 

ROUND 

02304 

65000 

04  060 

X 

GAMMA*23 

C2205 

ENT 

Q*  A 

02305 

10070 

00000 

X 

C22C6 

MUL 

W( FIX16) 

02306 

22030 

03573 

1/6SE$5B$5 A 

GAMMA= 

53 

C22C7 

RJP 

ROUND 

02307 

65000 

04  060 

X 

GAMM A= 

23 

C2210 

STR 

A*W ( MC ALST0R5 ) 

02310 

15030 

03537 

X 

C2211 

ENT 

A*W ( MC ALST0R2 ) 

02311 

11030 

03534 

Xl+2+3+4+5 

G AMMA*27 

C2212 

RSH 

A*4 

02312 

02000 

00004 

X 

X 

GAMMA*23 

C2213 

ENT 

C*W ( MC ALSTOR 1 ) 

02313 

10030 

03533 

X 

X 

C2214 

RJP 

SADD 

02314 

65000 

04  073 

X 

X  1+2  GAMMA 

*23 

C2215 

RJP 

SOVERFLOW 

02315 

65000 

04046 

C2216 

ENT 

Q*W(MCALST0R3) 

02316 

10030 

03535 

X 

X  GAMMA*27 

C2217 

RSH 

Q*4 

02317 

01000 

00004 

X 

X  GAMMA*23 

C2220 

RJP 

SSUB 

02320 

65000 

04114 

X 

X  1+2-3  GAMMA*23 

C2221 

RJP 

SOVERFLOW 

02321 

65000 

04046 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUlLKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JK8 

Y 

NOTES 

C2222 

ENT 

Q»W(MCALST0R4) 

02322 

10030 

03536 

X  X  GAMMA*27 

C2223 

RSH 

Q  *4 

02323 

01000 

OOOC4 

X  X  GAMMA*23 

C2224 

RJP 

SSUB 

02324 

65000 

04114 

X  X  1+2-3-4  GAMMA-23 

C2225 

RJP 

SOVERFLOW 

02325 

65000 

04046 

C2226 

ENT 

Q* W ( MC ALST0R5 ) 

02326 

10030 

03537 

X  X  GAMMA*23 

• 

C2227 

RJP 

SSUB 

02327 

65000 

04114 

X  X  1 +2-3-4- 5  GAMMA*23 

• 

C2230 

RJP 

SOVERFLOW 

02330 

65000 

04046 

• 

C2231 

STR 

A  * W ( MC AL  S  TOR  1 ) 

02331 

15030 

03533 

X  X 

C2232 

ENT 

Q*  W  (  MC  AL  A  2P  2  ) 

02332 

10030 

03523 

X( 1+2-+-4-5) SA2PSS2 

C2233 

MUL 

W ( MCALSTOR 1 ) 

02333 

22030 

03533 

G  55 

C2234 

LSH 

AQ»  1 

02334 

07000 

00001 

G  56 

C2235 

RJP 

ROUND 

02335 

65000 

0406  0 

X  GAMMA-26 

C2236 

STR 

A*W ( MCALST0R1 ) 

02336 

15030 

03533 

X 

C2237 

ENT 

85»85+  1 

02337 

12505 

00001 

• 

C2240 

ENT 

A*W ( MCALSTOR 1 ) 

02340 

11030 

03533 

X 

• 

C2241 

STR 

A*W ( MM  +  8  5 ) 

02341 

15035 

03626 

• 

C2242  DELR 

ENT 

Q  »W  ( MC ALCON  3 ) 

02342 

10030 

03545 

CALCULATE  CHANGE  IN  RANGE 

C2243 

MUL 

W ( F I X  32 ) 

02343 

22030 

03572 

1A  1— 3/2$S INSS2 I  GAMMA-56 

C2244 

LSH 

AQ»2 

02344 

07000 

00002 

X  3/2SS INSS2 I  GAMMA-58 

C2245 

RJP 

ROUND 

02345 

65000 

04060 

X 

C2246 

ENT 

Q*  A 

02346 

10070 

00000 

X  GAMMA-28 

C2247 

ENT 

A*W( FIXONE ) 

02347 

11030 

03606 

X  GAMMA-28 

C2250 

RJP 

SSUB 

02350 

65000 

04114 

X  1-3/2SSINSS2I  GAMMA-28 

C2251 

RJP 

SOVERFLOW 

02351 

65000 

04046 

C2252 

STR 

A*W ( MCALS  TORA ) 

02352 

15030 

03540 

X 

C2253 

ENT 

C  »W  ( MC  ALC0N4  ) 

02353 

1003  0 

03546 

IB  — 1 — 1 / E ( 1-SQRT ( 1-ESS2 ) )COSV 

C2254 

ENT 

A  *W ( F I XONE ) 

02354 

11030 

03606 

X  GAMMA-28 

C2255 

RJP 

SSUB 

02355 

65000 

04114 

X  1-SQRT ( 1-E  $S2 )  GAMMA*28 

C2256 

RJP 

SOVERFLOW 

02356 

65000 

04046 

• 

C2257 

ENT 

Q*  A 

02357 

10070 

00000 

X 

• 

C2260 

MUL 

W(VVCOS) 

02360 

22030 

03674 

X  COS V ( 1— SQRT( 1-ESS2I )  GAMMA-5 

• 

C2261 

LSH 

AQ  *  1 

02361 

07000 

OOOC1 

6 

G  57 

C2262 

CIV 

W ( EE ) *NOOF 

02362 

23230 

03  62  7 

X  C0SV(1-SQRT(1-E$S2) )/E  GAMM 
A*28 

C2263 

RJP 

SOVERFLOW 

02363 

65000 

04046 

C2264 

LSH 

A#  1 

02364 

06000 

00001 

X  ROUND 

C2265 

COM 

A*W ( EE  )*YM0RE 

02365 

04730 

03627 

X 

C2266 

ADD 

Q*  1 

02366 

26000 

OOOC1 

X 

C2267 

ENT 

A*W( FIXONE) 

02367 

11030 

03606 

X 

C227C 

CP 

A 

02370 

15040 

OOOCO 

X 

C2271 

RJP 

SSUB 

02371 

65000 

04114 

X  -1-1/E ( 1-SQRT (1-E$$2) )COSV  G 
AMMA-28 

C2272 

RJP 

SOVERFLOW 

02372 

65000 

04046 

C2273 

STR 

A#w ( MCALS  TORB ) 

02373 

15030 

03541 

X 

C2274 

CL 

Q* 

02374 

10000 

OOOCO 

1C  R/A$1/SQRT< 1-ESS2) 

C2275 

ENT 

A*W( F  IXONE ) 

02375 

11030 

03606 

X  GAMMA-28 

C2276 

RSH 

AQ»4 

02376 

03000 

00004 

G  54 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2277 

CIV 

W ( MC ALC0N4 ) *NOOF 

02377 

23230 

03546 

X  1/SQRT  (1-ESS2)  G AMMA*26 

C23CO 

RJP 

SOVERFLOW 

02400 

65000 

04046 

C2301 

LSH 

A*  1 

02401 

06000 

00001 

X  ROUND 

C23C2 

COM 

A*W(MCALC0N4) *YMORE 

02402 

04730 

03546 

X 

C23C3 

ADD 

Q*  1 

02403 

26000 

00001 

X 

C23C4 

STR 

Q*W( MCALSTORC ) 

02404 

14030 

03542 

X 

C23C5 

CL 

G* 

02405 

10000 

oooco 

X 

C2306 

ENT 

A* W ( RR  ) 

02406 

11030 

03622 

X  GAMMA=24 

C23C7 

RSH 

AQ»2 

02407 

03000 

00002 

X  GAMMA*22 

C2310 

CIV 

W( AA ) *NOOF 

02410 

23230 

03636 

X  GAMMA=2 7  R/A 

C2311 

RJP 

SOVERFLOW 

02411 

65000 

04  046 

C2312 

LSH 

A*  1 

02412 

06000 

00001 

X  ROUND 

C  2  3 1 3 

COM 

A*W( AA ) *YMORE 

02413 

04730 

03636 

X 

C2314 

ADD 

Q*  1 

02414 

26000 

00001 

X  GAMM A*2 7 

C2315 

MUL 

W ( MCALSTORC ) 

02415 

22030 

03542 

XR/AS1//SQRT (1— ESS2 )  G  GAMMA* 
53 

X  GAMMA*57 

C2316 

LSH 

AQ*4 

02416 

07000 

000C4 

C2317 

RJP 

ROUND 

02417 

65000 

04  06  0 

X  GAMM A=27 

C2320 

ENT 

Q*W( MC ALSTORB ) 

02420 

10030 

03541 

X  GAMMA*28 

C2321 

RSH 

Q*  1 

02421 

01000 

00001 

X  GAMMA=27 

C2322 

RJP 

SADD 

02422 

65000 

04073 

1B+1C 

C2323 

RJP 

SOVERFLOW 

02423 

65000 

04  046 

C2324 

ENT 

Q*  A 

02424 

10070 

OOOCO 

C2325 

MUL 

W( MCALSTORA ) 

02425 

22030 

03540 

1  A ( 1 B+ 1C )  GAMMA*55 

C2326 

RJP 

ROUNO 

02426 

65000 

04060 

X  GAMMA*25 

C2327 

ENT 

Q*  A 

02427 

10070 

00000 

X 

C2330 

MUL 

W(MCALA2P) 

02430 

22030 

04044 

X  ( A2/P) 1A1B+1C  G  54 

C2331 

RJP 

ROUND 

02431 

65000 

0406  0 

X  G  24 

C2332 

ENT 

Q*  A 

02432 

10070 

00000 

C2333 

MUL 

W( FIX13) 

02433 

22030 

03575 

X  XS1/3  G  53 

C2334 

LSH 

AQ*  2 

02434 

07000 

00002 

XX  G  25 

C2335 

RJP 

ROUND 

02435 

65000 

04  060 

XX  25 

C2336 

STR 

A*W(MCALST0R1 ) 

02436 

15030 

03533 

X 

C2337 

ENT 

A*W( VV ) 

02437 

11030 

03672 

2  C0S2I V+OMEG) $S IN SS2 I SA2/P S 1 
/6 

X  GAMM A*25 

C2340 

RSH 

A*  1 

02440 

02000 

00001 

C2341 

ENT 

Q*W  ( ZOMEGA ) 

02441 

10030 

03631 

X 

C2342 

RSH 

Q*  1 

02442 

01000 

00001 

X  GAMMA=25 

C2343 

RJP 

SADD 

02443 

65000 

04  073 

X  V+OMEG  GAMMA*25 

C  2  344 

RJP 

SOVERFLOW 

02444 

65000 

04046 

C2345 

ENT 

Q*A 

02445 

10070 

00000 

X 

C2346 

MUL 

W( FIXTWO) 

02446 

22030 

03607 

X  2 ( V+OMEG )  GAMMA*52 

C2347 

LSH 

AQ*2 

02447 

07000 

00002 

X  GAMMA*54 

C2350 

RJP 

ROUND 

02450 

65000 

04060 

X  GAMMA*24 

C2351 

ENT 

Q*  24D 

02451 

10000 

00030 

X 

C2352 

RJP 

COSX 

02452 

65000 

05345 

X  C0S2  (  V-f  W  )  GAMMA*28 

C2353 

STR 

A*W( MC ALC0N9 ) 

02453 

15030 

03526 

C2354 

ENT 

Q*  A 

02454 

10070 

00000 

X 

C2355 

MUL 

W ( MCALC0N3 ) 

02455 

22030 

03545 

X  SI  NS $2 I SC0S2 ( V  +  OMEG )  GAMMA*2 

/L 

C2356 

LSH 

AQ*2 

02456 

07000 

00002 

O 

X  GAMMA*2 

8 

X 

C2357 

ENT 

Q*  A 

02457 

10070 

OOOCO 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL  KIN*7/l/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2360 

MUL 

W  (  F I X 16  ) 

02460 

22030 

03573 

X  1/6$SINSS2ISC0S2( V+OMEG )  GAH 
MA*57 

C2361 

LSH 

AQ*2 

02461 

07000 

000C2 

X  GAM 

MA=59 

C2362 

RJP 

ROUND 

02462 

65000 

04060 

X  GAM 

MA*29 

C2363 

ENT 

C*  A 

02463 

10070 

00000 

X  XSA2/PSS2 

C2364 

MUL 

WIMCALA2P) 

02464 

22030 

04044 

X  G  58 

C2365 

RSH 

AQ  •  3 

02465 

03000 

00003 

X  G  55 

C2366 

RJP 

ROUND 

02466 

65000 

0406  0 

X  GAMMA*25 

C2367 

ENT 

C*W(MCALST0R1 ) 

02467 

1003  0 

03533 

X  GAMMA=25 

C2370 

RJP 

SAOD 

02470 

65000 

04073 

X  GAMMA=25 

• 

C2371 

RJP 

SOVERFLOW 

02471 

65000 

04046 

• 

C2372 

STR 

A*W(MCALST0R1 ) 

02472 

15030 

03533 

X 

• 

C2373 

ENT 

B  5  *B5+  1 

02473 

12505 

00001 

• 

C2374 

ENT 

A*W(MCALST0R1 ) 

02474 

11030 

03533 

• 

C2375 

STR 

A*W(MM+B5 ) 

02475 

15035 

03626 

# 

C2376  DELRAM 

ENT 

A*W( MCALC0N7 ) 

02476 

11030 

03521 

CALCULATE  THE  CHANGE  IN  RAM 

C2377 

RSH 

A*  1 

02477 

02000 

00001 

XIV“M+E$SINV-1/2$SIN2(V+W) 

C24C0 

STR 

A*W ( MCALS  TORA ) 

02500 

15030 

03540 

X  X  1  /2  SS I N2 ( V+W )  GAMMA=28 

C24C1 

ENT 

Q*W ( EE ) 

02501 

10030 

03627 

X  X  GAMMA=29 

C24C2 

MUL 

W( VVSIN) 

02502 

22030 

03673 

X  X  GAMMA=57 

C24C3 

LSH 

AO*  1 

02503 

07000 

00001 

X  X  GAMMA*28 

C24C4 

RJP 

ROUND 

02504 

65000 

04060 

X  X  ESSINV  GAMMA=28 

C24C5 

ENT 

Q*W(MCALSTORA) 

02505 

10030 

03540 

X  X  CAMMA=28 

C24C6 

RJP 

S  SUB 

02506 

65000 

04114 

X  X  ESS I NV-1/2 SS IN2 ( V+W )  GAMMA 
*28 

• 

C24C7 

RJP 

SOVERFLOW 

02507 

65000 

04046 

• 

C2410 

RSH 

A*  2 

02510 

02000 

00002 

X  X  GAMMA 

=  26 

• 

C24  1 1 

ENT 

C • W ( MM  ) 

02511 

10030 

03626 

X  X  GAMMA 

=  26 

C2412 

RJP 

SSUB 

02512 

65000 

04114 

X  X  -M*E$SINV-1/2$SIN2(V+W)  GA 
MMA=26 

C2413 

RJP 

SOVERFLOW 

02513 

65000 

04  046 

C2414 

ENT 

Q • W ( VV  ) 

02514 

10030 

03672 

XX  GA 

MM A=26 

C2415 

RJP 

SAOD 

02515 

65000 

04073 

X  V-M+E$SINV-1/2$SINV2< V+W )  G 
AMMA=26 

C2416 

RJP 

SOVERFLOW 

02516 

65000 

04  046 

C2417 

STR 

A*W ( MC ALSTOR 1 ) 

02517 

15030 

03533 

X 

C2420 

ENT 

G* W ( EE ) 

02520 

10030 

03627 

X2  E/2SSINIV+2W) 

C2421 

PUL 

W ( MCALC0N6 ) 

02521 

22030 

03520 

X  X  ESSINIV+2W)  GAMMA=57 

C2422 

LSH 

AO*  1 

02522 

07000 

00001 

X  X  GAMMA=58 

C2423 

RJP 

ROUND 

02523 

65000 

04  060 

X  X  GAMMA=28 

C2424 

RSH 

A  *  1 

02524 

02000 

00001 

X  E/2SSINIV+2W)  GAMMA*28 

C2425 

STR 

A*W(MCALST0R2) 

02525 

15030 

03534 

X 

C2426 

ENT 

Q*W ( E  E  ) 

02526 

10030 

03627 

X 3  E/6SSINI 3V+2W) 

C2427 

PUL 

W ( MCALCON  8 ) 

02527 

22030 

03522 

X  X  ESS  IN ( 3V+2W )  GAMMA  =  57 

C2430 

RSH 

AQ  •  2 

02530 

03000 

00002 

X  X  G  55 

C2431 

CIV 

W( FIX6  )*NOOF 

02531 

23230 

03611 

X  X(ESSIN(3V+W) ) / 6  G  29 

C2432 

RJP 

SOVERFLOW 

02532 

65000 

04046 

C2433 

LSH 

A  •  1 

02533 

06000 

00001 

X 

SATEL 


SPURT 


00 


CARDS 


LI  ID  LABEL 

TA  STATEMENT 

C2434 

COM 

A  *W ( F I X6 ) *YMORE 

C2435 

ADD 

Q  •  1 

C2436 

STR 

Q*W(MCALST0R3) 

C2437 

ENT 

A*W ( MCALST0R1 ) 

C2440 

ENT 

Q*W(MCALST0R2) 

C2441 

RSH 

0*2 

C2442 

RJP 

S  SUB 

C2443 

RJP 

SOVERFLOW 

C2444 

ENT 

Q*W(MCALST0R3) 

C2445 

RSH 

0*3 

C2446 

RJP 

SSUB 

C2447 

RJP 

SOVERFLOW 

C2450 

ENT 

Q*  A 

C2451 

MUL 

W (  IICOS) 

C2452 

RJP 

ROUND 

C2453 

STR 

A  * W ( MC ALSTOR 1 ) 

C2454 

ENT 

Q*W  ( MC ALA2P2 ) 

C2455 

CP 

Q 

C2456 

MUL 

W ( MC ALSTOR 1 ) 

C2457 

RJP 

ROUND 

C2460 

STR 

A*W(MCALST0R1) 

C2461 

ENT 

B5*B5+ 1 

C2462 

ENT 

A*W(MCALST0R1 ) 

C2463 

STR 

A  *W ( MM  +  B5 ) 

C2464 

ENT 

A  * W ( ZOMEGA ) 

C2465 

RSH 

A  *  1 

C2466 

ENT 

G*W ( VV  ) 

C2467 

RSH 

Q  *2 

C2470 

RJP 

SADD 

C2471 

RJP 

SOVERFLOW 

C2472 

ENT 

Q*24D 

C2473 

RJP 

COSX 

C2474 

ENT 

Q*  A 

C2475 

MUL 

W  (  EE  ) 

C2476 

LSH 

AQ*2 

C2477 

RJP 

ROUND 

C2500 

STR 

A*W ( MC ALSTOR 1  ) 

C2501 

ENT 

Q  *W { ZOMEGA ) 

C2502 

MUL 

W( FIXTWO) 

C2503 

RJP 

ROUND 

C2504 

STR 

A*W ( MC ALSTOR A ) 

C25C5 

ENT 

Q*W(VV) 

C2506 

MUL 

W  (  F  I  X  3  ) 

C2507 

RJP 

ROUND 

C2510 

ENT 

Q*W( MCALSTORA ) 

C2511 

RJP 

SADD 

C2512 

RJP 

SOVERFLOW 

C2513 

ENT 

Q*  2  3D 

C2514 

RJP 

COSX 

C2515 

ENT 

Q*  A 

C2516 

MUL 

W  (  EE  ) 

C2517 

RSH 

AQ*  1 

OUTPUT  NO.  210 
MCQUlLKIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

02534 

04730 

03611 

X 

02535 

26000 

00001 

X 

02536 

14030 

03535 

X 

02537 

11030 

03533 

X 

1  GAMMA*26 

02540 

10030 

03534 

X 

2  G AMMA*28 

02541 

01000 

00002 

X 

GAMMA-26 

02  542 

65000 

04114 

X 

02543 

65000 

04046 

02544 

10030 

03535 

X 

3  G  29 

02545 

01000 

00003 

X 

G  26 

02546 

65000 

04114 

X 

1-2-3  GAMMA*26 

02547 

65000 

04046 

02550 

10070 

00000 

X 

02551 

22030 

03646 

X 

COSI( 1-2-3)  GAMMA*54 

02552 

65000 

04060 

X 

GAMMA*24 

02553 

15030 

03533 

X 

G AMMA*24 

02554 

10030 

03523 

X 

02555 

14000 

00000 

02556 

22030 

03533 

X 

G  56 

02557 

65000 

04060 

02560 

15030 

03533 

02561 

12505 

00001 

02562 

11030 

03533 

02563 

15035 

03626 

02564 

11030 

03631 

CALCULATE  CHANGE  IN  I 

GAMMA*26 

02565 

02000 

00001 

X 

G  25  W/2  G  24 

02566 

10030 

03672 

X 

X  GAMMA*26 

02567 

01000 

00002 

X 

G  24 

02570 

65000 

0407  3 

X 

X  V+2W  GAMMA*26 

02571 

65000 

04  046 

02572 

10000 

00030 

X 

X  G  24 

02573 

65000 

05345 

X 

X  C0SIV+2W) 

02574 

10070 

00000 

X 

X 

02575 

22030 

0362  7 

X 

X  E SCOS ( V  +2W )  GAMM A*57 

02576 

07000 

00002 

X 

X  GAMMA*59 

02577 

65000 

04060 

X 

X  GAMM A*29 

02600 

15030 

03533 

X 

X 

02601 

10030 

03631 

X2 

E/3  SCOS ( 3V+2W ) 

02602 

22030 

03607 

X 

X  2 W  GAMMA*53 

02603 

65000 

04060 

X 

X  GAMMA*23 

02604 

15030 

03540 

X 

X 

02605 

10030 

03672 

X 

X  GAMMA=26 

02606 

22030 

03610 

X 

X  3 V  GAMMA*53 

02607 

65000 

04  060 

X 

X  GAMMA*23 

02610 

10030 

03540 

X 

X 

02611 

65000 

04073 

X 

X  3V+2W  GAMMA*23 

02612 

65000 

04  046 

02613 

10000 

00027 

X 

X 

02614 

65000 

05345 

X 

X  COS ( 3V+2W ) 

02615 

10070 

00000 

X 

X 

02616 

22030 

03627 

X 

X  E  SCOS ( 3V  +  2W )  GAMMA* 57 

02617 

03000 

00001 

X 

X  G  56 

CARDS 


sO 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2520 

CIV 

VM  F 1X3  ) *NOOF 

02620 

23230 

03610 

X  X  ESCOS ( 3V+2W ) /3  GAMMA*29 

C2521 

RJP 

SOVERFLOW 

02621 

65000 

04046 

C2522 

LSH 

A  *  1 

02622 

06000 

00001 

X  X 

C2523 

COM 

A*W(FIX3)*YM0RE 

02623 

04730 

03610 

X  X 

C2  524 

ADO 

Q*  1 

02624 

26000 

00001 

X  X 

C2525 

STR 

Q*W(MCALST0R2) 

02625 

14030 

03534 

X  X 

C2526 

ENT 

A*W(MCALC0N9) 

02626 

11030 

03526 

X  GAMMA=28 

C2527 

ENT 

Q*W ( MC ALSTOR 1 ) 

02627 

10030 

03533 

X  GAMHA=29 

C2530 

RSH 

Q*1 

02630 

01000 

00001 

X  GAMHA=28 

C2531 

RJP 

SADD 

02631 

65000 

04073 

X  C0S2 ( V+W ) +1 

C2532 

RJP 

SOVERFLOW 

02632 

65000 

04046 

C2533 

ENT 

Q*W  ( MC ALST0R2 ) 

02633 

10030 

03534 

X  GAMMA=29 

C2534 

RSH 

Q*  1 

02634 

01000 

00001 

X  GAMMA=28 

C2535 

RJP 

SADD 

02635 

65000 

04073 

X  C0S2 ( V*W)+l+2  GAMMA*28 

C2536 

RJP 

SOVERFLOW 

02636 

65000 

04  046 

C2537 

STR 

A*W(MCALST0R1) 

02637 

15030 

03533 

X  G  28 

C2540 

ENT 

A  *  W  (  I  I  ) 

02640 

11030 

03630 

X  G  26 

C2541 

LSH 

A  *  1 

02641 

06000 

00001 

X  G  26  2$ I 

C2542 

ENT 

Q*26D 

02642 

10000 

00032 

X 

C2543 

RJP 

SINX 

02643 

65000 

05357 

X  SIN2I  G  28 

C2544 

ENT 

Q*  A 

02644 

10070 

00000 

C2545 

MUL 

W ( MCALSTOR 1 ) 

02645 

22030 

03533 

X  SI  N2 1  (C0S2(V*WM'l  +  2)  G  56 

C2546 

RJP 

ROUND 

02646 

65000 

0406  0 

X  GAMMA 

=  26 

C2547 

ENT 

Q*  A 

02647 

10070 

00000 

X 

C2550 

MUL 

W ( MCALA2P2 ) 

02650 

22030 

03523 

X  G  58 

C2551 

RSH 

AQ*3 

02651 

03000 

00003 

X  G  55 

C2552 

RJP 

ROUND 

02652 

65000 

0406  0 

X  =25 

C2553 

ENT 

Q  *  A 

02653 

10070 

00000 

X 

C2554 

MUL 

WIFIX14) 

02654 

22030 

03574 

GAMMA-54 

C2555 

RSH 

AQ*  1 

02655 

03000 

00001 

GAMMA=55 

C2  556 

RJP 

ROUND 

02656 

65000 

0406  0 

GAMMA*25 

C2557 

STR 

A*W(MCALST0R1 ) 

02657 

15030 

03533 

C2560 

ENT 

B5*05+l 

02660 

12505 

00001 

STORE  DELTA  L 

C2561 

ENT 

A*W(MCALST0R1) 

02661 

11030 

03533 

C2562 

STR 

A  •  W  (  MM  +  B5  ) 

02662 

15035 

03626 

C2563 

MCALEXI T 

ENT 

B5  *0 

02663 

12500 

00000 

EXIT  NORMAL 

C2564 

STR 

A  *W ( SA  T DVSTOR ) 

02664 

15030 

0373  0 

C2565 

MCALXB6 

ENT 

B6*0 

02665 

12600 

00000 

X  YES 

C2566 

MCAL3B5 

ENT 

B5*0 

02666 

12500 

00000 

C2567 

MCALAB4 

ENT 

B4*0 

02667 

12400 

00000 

C2570 

MCALB7 

ENT 

87*0 

02670 

12700 

00000 

C2571 

JP 

MCALC 

02671 

61000 

01310 

C2572 

SCALC 

ENTRY 

02672 

61000 

OOOCO 

C2573 

ENT 

B3  *0 

02673 

12300 

00000 

C2574 

ENT 

B4*0 

02674 

12400 

00000 

C2575 

CL 

W( EPRESW) 

02675 

16030 

03705 

C2576 

ENT 

Q*W ( EE  ) 

02676 

10030 

03627 

C2577 

MUL 

W  (  EE ) 

02677 

22030 

03627 

C26C0 

RJP 

ROUND 

02700 

65000 

04  060 

GAMMA  28 

C260I 

ENT 

Q*  A 

02701 

10070 

00000 

C2602 

ENT 

A*W( FIXONE) 

02702 

11030 

03606 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKlN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2603 

RJP 

SSUB 

02703 

65000 

04114 

C26C4 

RJP 

SOVERFLOW 

02704 

65000 

04  04  6 

C26C5 

RSH 

A  #2 

02705 

02000 

OOOC2 

G=  26 

C2606 

RJP 

SORT 

02706 

65000 

05504 

C2607 

RJP 

SERROR 

02707 

65000 

0405  3 

C2610 

LSH 

A»  1 

02710 

06000 

00001 

G*28 

C2611 

STR 

A*W ( S ATDVS  TOR ) 

02711 

15030 

03730 

C2612 

COMMENT  CALC 

SINW,COSW 

C2613 

ENT 

A  « W ( ZOMEGA ) 

02712 

11030 

03631 

W  G*26 

C2614 

ENT 

C*  26D 

02713 

10000 

00032 

C2615 

RJP 

SINX 

02714 

65000 

05357 

C2616 

STR 

A*W( ZOS IN ) 

02715 

15030 

03651 

WSIN  G=28 

C2617 

ENT 

A»W  ( ZOMEGA ) 

02716 

11030 

03631 

W  G*26 

C262C 

ENT 

<3*26D 

02717 

10000 

00032 

C2621 

RJP 

COSX 

02720 

65000 

05345 

C2622 

STR 

A»  W  ( ZOCOS ) 

02721 

15030 

03652 

COSW  G=28 

C2623 

COMMENT  CALC 

SINRF*S1NR+DR(C0SR) 

C2624 

PUT 

SACD*L( SINIT5) 

02722 

10000 

04  073 

02723 

14010 

02753 

C2625 

ENT 

A*W( RAM ) 

02724 

11030 

03632 

C2626 

ENT 

Q*  26D 

02725 

10000 

00032 

C2627 

RJP 

SINX 

02726 

65000 

05357 

C2630 

STR 

A*W(RAMSIN) 

02727 

15030 

03653 

G  =  28 

C2631 

ENT 

A*W  ( RAM ) 

02730 

11030 

03632 

C2632 

ENT 

Q*26D 

02731 

10000 

00032 

C2633 

RJP 

COSX 

02732 

65000 

05345 

C2634 

STR 

A*W ( R AMCOS ) 

02733 

15030 

03654 

G*28 

C2635 

ENT 

B6*0 

02734 

12600 

OOOCO 

C2636 

ENT 

B7  *0 

02735 

12700 

00000 

C2637  SINIT4 

ENT 

Q*W(RAMC0S+B7) 

02736 

10037 

03654 

C2640 

MUL 

W ( DELTRAM ) 

02737 

22030 

03641 

G  =  26 

C2641 

LSH 

AQ*  2 

02740 

07000 

00002 

G  =  24  MAKE  IT  26 

C2642 

RJP 

ROUND 

02741 

65000 

04  06  0 

NO 

C2643 

STR 

A»W( S  INUM ) 

02742 

15030 

03704 

TEMP 

C2644 

ADD 

A*0» APOS 

02743 

20600 

OOOCO 

C2645 

CP 

A* 

02744 

15040 

OOOCO 

C2646 

COM 

A*W(TW026) * YMORE 

02745 

04730 

03721 

COM  *0RGRTR2 

C2647 

RJP 

SOVERFLOW 

02746 

65000 

04  046 

C2650 

ENT 

A*W(RAMSIN+B6) 

02747 

11036 

03653 

G*28 

C2651 

RSH 

AQ  *2 

02750 

03000 

00002 

MAKE  G*26 

C2652 

RJP 

ROUND 

02751 

65000 

04  060 

C  2653 

ENT 

Q*W(SINUM) 

02752 

10030 

03704 

DI (COSCSIN) I  )  G*26 

C2654  SINIT5 

RJP 

SACO 

02753 

65000 

04073 

C2655 

RJP 

SOVERFLOW 

02754 

65000 

04046 

C2656 

ADD 

A  *0*AP0S 

02755 

20600 

00000 

C2657 

JP 

$♦4 

02756 

61000 

02762 

C2660 

COM 

A*W( W0NEP26)*YM0RE 

02757 

04730 

03716 

SIN  GRTR  1 

C2661 

ENT 

A*W( FIXONEX) 

02760 

11030 

03620 

C2662 

JP 

SINIT51 

02761 

61000 

02  766 

C2663 

CP 

A* 

02762 

15040 

00000 

C2664 

COM 

A*W(W0NEP26) •YMORE 

02763 

04730 

03716 

C2665 

ENT 

A*W( FIXONEX ) 

02764 

11030 

03620 

C2666 

CP 

A* 

02765 

15040 

00000 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKlN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2667  SINIT51 

LSH 

A  *2 

02766 

06000 

00002 

C2670 

STR 

A*W( RAMFSIN+B6) 

02767 

15036 

03655 

C2671 

COMMENT  CALC 

COSRF=COSR-DR(SINR) 

C2672 

ENT 

A  *B6*AZ  ERO 

02770 

11406 

OOOCO 

C2673 

JP 

SIN52 

02771 

61000 

02777 

C2674 

ENT 

B7*-l 

02772 

12700 

77776 

C2675 

ENT 

B6  * 1 +B6 

02773 

12606 

00001 

C2676 

PUT 

SSUB*L ( S INI T5 ) 

02774 

10000 

04114 

02775 

14010 

02753 

C2677 

JP 

SINIT4 

02776 

61000 

02736 

C27C0  SIN52 

PUT 

$ ADD*L ( SUBADD ) 

02777 

10000 

04073 

03000 

14010 

03020 

C2701 

COMMENT  CALC 

SINL=SINWCOSV+COSWSINV 

C2702 

PUT 

SADD*L ( SUBACD ) 

03001 

10000 

04073 

HAVE  SIN  AND  COS 

03002 

14010 

03020 

C27C3  SINL 

ENT 

B6*0 

03003 

12600 

OCOCO 

C27C4 

ENT 

B7*0 

03004 

12700 

00000 

C2705 

ENT 

Q*W ( ZOS IN+B6 ) 

03005 

10036 

03651 

C2706 

MUL 

W( VVCOS ) 

03006 

22030 

03674 

COSV  G-28 

C2707 

LSH 

AQ*2 

03007 

07000 

0C0C2 

G*26  MAKE  IT  28 

C2710 

R  JP 

ROUND 

03010 

65000 

04060 

C2711 

STR 

A  *W ( S I NUM  ) 

03011 

15030 

03704 

RES  IN  A 

C2712 

ENT 

Q*W( Z0C0S+B7) 

03012 

10037 

03652 

C2713 

MUL 

W< VVSIN) 

03013 

22030 

03673 

SINV  G*28 

C2714 

LSH 

AQ*2 

03014 

07000 

00002 

G-26  MAKE  IT  28 

C2715 

R  JP 

ROUND 

03015 

65000 

04060 

C2716 

ENT 

Q*  A 

03016 

10070 

00000 

C2717 

ENT 

A*W ( S I NUM ) 

03017 

11030 

03704 

C2720  SLBADD 

R  JP 

SADD 

03020 

65000 

04073 

C2721 

RJP 

SOVERFLOW 

03021 

65000 

04046 

C2722 

STR 

A  *W ( LL  S  IN  +  B6 ) 

03022 

15036 

03666 

C2723 

COMMENT  CALC 

COSL*COSWCOSV-SINWSINV 

C2724 

ENT 

A*B6*AZER0 

03023 

11406 

OOOCO 

C2725 

JP 

SUBADDX1 

03024 

61000 

0303  2 

C2726 

ENT 

B6*B6*1 

03025 

12606 

00001 

C2727 

ENT 

87*- 1 

03026 

12700 

77776 

C2730 

PUT 

SSUB*L( SUBADD) 

03027 

10000 

04114 

03030 

14010 

03020 

C2731 

JP 

SlNL+2 

03031 

61000 

030C5 

C2732 

COMMENT  CALC 

SINLF*SINL+C0SLDL 

C2733  SIBADCX1 

ENT 

B7  *0 

03032 

12700 

00000 

C2734 

ENT 

B6  *0 

03033 

12600 

00000 

C2735  SlFBGN 

PUT 

SADD*L(SLFCALL) 

03034 

10000 

04073 

03035 

14010 

03052 

C2736 

ENT 

Q*W  ( DELTL ) 

03036 

10030 

03637 

C2737 

MUL 

W ( LLC0S+B7 ) 

03037 

22037 

03667 

C2740 

LSH 

AQ*2 

03040 

07000 

00002 

G*24  MAKE  G=26 

C2741 

RJP 

ROUND 

03041 

65000 

04060 

C2742 

COM 

A*W(TW026)*YM0RE 

03042 

04730 

03721 

C2743 

RJP 

SOVERFLOW 

03043 

65000 

04046 

C2744 

STR 

A*W ( ST  EM  1  ) 

03044 

15030 

03711 

C2745 

ENT 

A*W ( LLS IN+B6 ) 

03045 

11036 

03666 

G*28 

C2746 

CL 

Q* 

03046 

10000 

00000 

.  SPURT  OUTPUT  NO.  210 

SAT  EL  MCQUILKIN*7/l/65 


CARDS 

11  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C2747 

RSH 

AO  *  2 

03047 

03000 

00002 

MAKE  G=26 

C2750 

RJP 

ROUND 

03050 

65000 

04  06  0 

SINL 

C2751 

ENT 

Q*W(STEM1) 

03051 

10030 

03711 

COSLDL 

C2752  SLFCALL 

RJP 

SADD 

03052 

65000 

04073 

C2753 

RJP 

SOVERFLOW 

03053 

65000 

04  046 

C2754 

ADD 

A  »0* APOS 

03054 

20600 

00000 

C2755 

JP 

SLFCALLX2 

03055 

61000 

03061 

C2756 

(OM 

A*W(W0NEP26)*YM0RE 

03056 

04730 

03716 

C2757 

ENT 

A  *W  (  F  IXONEX ) 

03057 

11030 

03620 

C2760 

JP 

SLFCALLX3 

03060 

61000 

0306  5 

C2761  SLFCALLX2 

CP 

A  * 

03061 

15040 

OOOCO 

C2762 

COM 

A*W(W0NEP26 )*YMORE 

03062 

04730 

03716 

C2763 

ENT 

A  *W  ( F IXONEX ) 

03063 

11030 

03620 

• 

C2764 

CP 

A* 

03064 

15040 

00000 

• 

C2765  S  LFCALLX3 

LSH 

A*  2 

03065 

06000 

00002 

• 

C2766 

STR 

A  *W ( LLFS I N  +  B6 ) 

03066 

15036 

03670 

C2767 

COMMENT  CALC 

COSLF=COSL-SINLDL 

C2770 

ENT 

A  *86*AZER0 

03067 

11406 

00000 

C2771 

JP 

SLFCALLX1 

03070 

61000 

03100 

C2772 

FNT 

B7*-l 

03071 

12700 

77776 

C2773 

ENT 

86*1*86 

03072 

12606 

00001 

C2774 

PUT 

SSUB*L( SLFCALL ) 

03073 

10000 

04114 

03074 

14010 

03052 

C2  775 

JP 

SLFBGN+1 

03075 

61000 

03035 

C2776 

PUT 

SADD*L(SLFCALL) 

03076 

10000 

04073 

03077 

14010 

03052 

C2777 

COMMENT  CALC 

R=A(1-EC0SE)*DR 

C3CC0  SLFCALLX1 

ENT 

0  *W ( S I NDEN ) 

03100 

10030 

037C3 

C3C01 

MUL 

W(  AA) 

03101 

22030 

03636 

G-25 

C3  002 

LSH 

AQ*2 

03102 

07000 

00002 

G=23  MAKE  IT  25 

C3CC3 

RJP 

ROUND 

03103 

65000 

0406  0 

C3C04 

ENT 

0*W( DELTR ) 

03104 

10030 

03640 

C30C5 

RJP 

SADD 

03105 

65000 

04073 

C3CC6 

RJP 

SOVERFLOW 

03106 

65000 

04  04  6 

C3CC7 

STR 

A*W( R ANGEX ) 

03107 

15030 

03664 

RANGE  G  25 

C3C10 

RSH 

AQ  *  3 

03110 

03000 

00003 

C3011 

RJP 

ROUND 

03111 

65000 

04  060 

C3012 

STR 

A*W(RADIUS) 

03112 

15030 

63006 

X  RADIUS 

22 

CALCULATE  ARCSINISINIF 

GAMMA 

C3C13  SATDELTA 

ENT 

0*W { I  IFSIN) 

03113 

10030 

03647 

X  SINLF 

) =DELT  A 

C3C14 

MUL 

W ( LLFS IN ) 

03114 

22030 

03670 

X  GAMMA=56 

C3C15 

LSH 

AQ  *2 

03115 

07000 

00002 

X  GAMMA  58 

C3C16 

RJP 

ROUND 

03116 

65000 

04  060 

X  GAMMA=29 

C3C17 

RSH 

A  *  2 

03117 

02000 

00002 

C3C20 

ENT 

0*  A 

03120 

10070 

00000 

C3C21 

JP 

SATD2*QNEG 

03121 

60300 

03125 

C3022 

SUB 

Q*W( FIX ON EX )*QNEG 

03122 

27730 

03620 

C3C23 

ENT 

A*W ( F IXONEX ) 

03123 

11030 

03620 

C3024 

JP 

SATD3 

03124 

61000 

03131 

C3C25  SATD2 

ADD 

Q*W{FIXONEX )  *QPOS 

03125 

26630 

03620 

C3026 

ENT 

A*W( FIXONEX )*SKIP 

03126 

11130 

03620 

C3C27 

JP 

SATD3 

03127 

61000 

03131 

00 

00 


CARDS 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C3030 

CP 

A* 

03130 

15040 

00000 

C3031 

SATD3 

ENT 

Q*26D 

03131 

10000 

00032 

C3032 

RJP 

ASINX 

03132 

65000 

05657 

X  GAMMA-27 

C3C33 

RJP 

SERROR 

03133 

65000 

04053 

C3034 

RSH 

A*  1 

03134 

02000 

00001 

X  GAMMA*26 

C3C35 

STR 

A*W ( DELTB ) 

03135 

15030 

03676 

CALCULATION  STORED  IN  DELT 

C3036 

CL 

Q* 

03136 

10000 

00000 

C3037 

RSH 

AQ*2 

03137 

03000 

00002 

X  GAMMA 

54 

X  DELTA/2PI  GMMA 

28 

X 

C3040 

CIV 

W ( SAT  2P I ) *NOOF 

03140 

23230 

04025 

C3C41 

RJP 

SOVERFLOW 

03141 

65000 

04046 

C3042 

LSH 

A*  L 

03142 

06000 

00001 

X 

C3043 

COM 

A*W(SAT2PI )*YMORE 

03143 

04730 

04025 

X 

C3044 

ADD 

Q*  1 

03144 

26000 

00001 

X 

C3045 

RSH 

Q*  1 

03145 

01000 

00001 

X 

C3046 

STR 

Q*W ( DEC ) 

03146 

14030 

63003 

X 

C3047 

SATALPHA 

ENT 

Q*W (  I  IFCOS) 

03147 

10030 

03650 

CALCULATE  ALPHA 

C3050 

MUL 

W ( RAMFCOS  ) 

03150 

22030 

03656 

XCALCULATE  COS  IF  X  COSRAMF  X  S 
INLF 

C3051 

LSH 

AQ  *2 

03151 

07000 

00002 

G*28 

C3052 

RJP 

ROUND 

03152 

65000 

04060 

X  ROUND  GAMMA  «  28 

C3053 

ENT 

Q  *A 

03153 

10070 

00000 

X  PUT  PROD  IN  Q  REG 

C3054 

MUL 

W(LLFSIN) 

03154 

22030 

03670 

X  GAMMA*54 

C3055 

LSH 

AQ#2 

03155 

07000 

00002 

X  G AMMA=58 

C3G56 

RJP 

ROUND 

03156 

65000 

04060 

X  ROUND 

C3057 

STR 

A*W( SSPROD ) 

03157 

15030 

03725 

XSTORE  PARTIAL  ANS 

C3060 

ENT 

Q*W ( RAMFS IN ) 

03160 

10030 

03655 

XCALCULATE  SINRAMF  X  COSLF 

C3061 

MUL 

W(LLFCOS) 

03161 

22030 

03671 

X  GAMMA=56 

C3062 

LSH 

AQ*  2 

03162 

07000 

00002 

X  GAMMA*58 

C3063 

RJP 

ROUND 

03163 

65000 

0406  0 

X  ROUND  GAMMA-28 

C3C64 

ENT 

Q  *W ( SSPROD ) 

03164 

10030 

03725 

X  GAMMA*28 

C3065 

RJP 

SADD 

03165 

65000 

04073 

XADD  TWO  PARTIAL  ANS 

C3066 

RJP 

SOVERFLOW 

03166 

65000 

04046 

C3067 

STR 

A* W ( SSSUM ) 

03167 

15030 

03726 

X  NUMERATOR  CALCULATED 

C3070 

ENT 

A*W( DELTB ) 

03170 

11030 

03676 

X 

C3071 

ENT 

Q*26D 

03171 

10000 

0003  2 

X 

C3072 

RJP 

COSX 

03172 

65000 

05345 

X  CALCULATE  COSDELT A  GAMMA*28 

C3073 

STR 

A*W( DELTCOS  ) 

03173 

15030 

03724 

X 

C  3074 

ADD 

A*0*AZER0 

03174 

20400 

00000 

C3075 

JP 

SATA1 

03175 

61000 

03200 

C3076 

CL 

Q* 

03176 

10000 

00000 

C3077 

JP 

SATALPH2X 

03177 

61000 

03275 

C31C0 

SATA1 

CL 

Q* 

03200 

10000 

00000 

C3101 

ENT 

A*W ( SSSUM ) 

03201 

11030 

03726 

X 

C3102 

RSH 

AQ  *  3 

03202 

03000 

00003 

C3103 

DIV 

W ( DELTCOS ) *NOOF 

03203 

23230 

03724 

X  DIVIDE  PARTIAL  SUM  BY  COSDEL 
TA 

C3104 

RJP 

SOVERFLOW 

03204 

65000 

04046 

C3105 

LSH 

A*  1 

03205 

06000 

00001 

X  NO  OVERFLOW  GAMMA*27 

C3106 

COM 

A*W ( DELTCOS ) * YMORE 

03206 

04730 

03724 

C3107 

ADD 

Q*  1 

03207 

26000 

00001 

SATEL 


SPURT 


CARDS  LI  ID  L/>BEL  TA  STATEMENT 


00 


C3110 

RSH 

Q  *  1 

C  3  1 1 1 

STR 

Q  *  A 

C  3 1 1  2 

JP 

SAT  A2*QN£G 

C  3 1 1  3 

SUB 

Q*W ( F  I  XONEX ) *QNEG 

C3I14 

ENT 

A*W( F  IXONEX  ) 

C  3 1 1 5 

JP 

SATA3 

C3116 

S*TA2 

ADD 

C*W  ( F IXONEX )*CPOS 

C  3 1 1  7 

ENT 

A*W( F IXONEX )*SKIP 

C  3 1  20 

JP 

SATA3 

C3121 

CP 

A  * 

C3122 

SMA3 

ENT 

C*  26D 

C  3 1 23 

RJP 

AS  INX 

C3124 

RJP 

SERROR 

C3125 

RSH 

A  *  1 

C3126 

STR 

A*W( ALPHB) 

C  3  1 2  7 

ENT 

C*W( RAMFCOS ) 

C3130 

MUL 

W ( LL  FCOS ) 

C  3  1  3 1 

RJP 

ROUND 

C3132 

STR 

A*W ( MCALSTORA ) 

C3133 

ENT 

C • W (  I  I  FCOS ) 

C3134 

KUL 

W( RAMFSIN) 

C3I35 

LSH 

A0*2 

C  3  1  36 

RJP 

ROUND 

C  3  1 37 

ENT 

C  *  A 

C3140 

MUL 

W( LLFSIN) 

C3141 

RJP 

ROUND 

C3142 

ENT 

C  *  A 

C3143 

ENT 

A  »W ( HC  ALS  TOR A  ) 

C3I44 

RJP 

S  SUB 

C  3  145 

RJP 

SOVERFLOW 

C  3  146 

STR 

A*W( MQUAD )*ANEG 

C3147 

JP 

S  AT  AL  PH  1 

C3150 

ENT 

A*W ( T  WP 126) 

C3151 

RSH 

A  *  1 

C3152 

ENT 

Q»W( ALPHB ) 

C3153 

RJP 

SSUB 

C  3  1 54 

RJP 

SOVERFLOW 

C  3 1  55 

JP 

SATALPH2 

C  3 1 56 

SATALPH1 

ENT 

A*W( ALPHB )*ANEG 

C3157 

JP 

S  ATALPH2 

C3160 

ENT 

Q*  A 

C3161 

ENT 

A*W ( TWP 126) 

C  3  1 62 

RJP 

SADD 

C3163 

RJP 

SOVERFLOW 

C  3164 

S ATALPH2 

RSH 

A*  1 

C  3 165 

STR 

A*W( ALPHB) 

C  3 166 

CL 

Q* 

C3167 

RSH 

AQ«  2 

C  3 1 70 

CIV 

W ( S AT  2P I ) *NOOF 

C  3  1  7 1 

RJP 

SOVERFLOW 

C3172 

LSH 

A  *  1 

OUTPUT  NO.  210 
MCQUlLKlN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

03210 

01000 

000C1 

X 

GAMMA*26 

03211 

14040 

OOOCO 

03212 

60300 

03216 

03213 

27730 

03620 

03214 

11030 

03620 

03215 

61000 

03222 

03216 

26630 

03620 

03217 

11130 

03620 

03220 

61000 

03222 

03221 

15040 

OOOCO 

03222 

10000 

00032 

03223 

65000 

05657 

X 

03224 

65000 

04053 

03225 

02000 

00001 

X 

GAMMA=26 

03226 

15030 

03677 

G: 

=  26 

03227 

10030 

03656 

COSRAMSCOSL-COSISSINRAMSSINL 

03230 

22030 

03671 

G 

56 

03231 

65000 

04060 

G 

26 

03232 

15030 

03540 

03233 

10030 

03650 

G 

28 

03234 

22030 

03655 

G 

56 

03235 

07000 

000C2 

G 

58 

03236 

65000 

04060 

03237 

10070 

OOOCO 

G 

28 

03240 

22030 

03670 

G 

56 

03241 

65000 

04060 

G 

26 

03242 

10070 

OOOCO 

03243 

11030 

03540 

G 

26 

03244 

65000 

04114 

03245 

65000 

04046 

03246 

15730 

04027 

G 

26  NfcG  ADO  180DEG  TO  ANGLE 

03247 

61000 

03256 

03250 

11030 

04025 

G 

26  2  PI 

03251 

02000 

00001 

G 

26  PI 

03252 

10030 

03677 

03253 

65000 

04114 

1 80DEG-ALPHA 

03254 

65000 

0404  6 

03255 

61000 

03264 

03256 

11730 

03677 

03257 

61000 

03264 

03260 

10070 

00000 

03261 

11030 

04  02  5 

G 

26 

03262 

65000 

04073 

360DEG  ♦  (-ALPHA) 

03263 

65000 

04046 

03264 

02000 

00001 

G 

25 

03265 

15030 

03677 

03266 

10000 

00000 

CONVERT  RIGHT  ASCNE  TO  REV  AND 

SOTRE 

03267 

03000 

00002 

X 

CAMMA»53 

03270 

23230 

0402  5 

X 

ALPHA/2PI  GAMMA*  27 

03271 

65000 

04  046 

X 

03272 

06000 

00001 

X 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN* 7/1/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C3173 

COM 

A*W(SAT2PI)*YM0RE 

03273 

04730 

0402  5 

X 

C3174 

ADD 

Q*  1 

03274 

26000 

00001 

X 

C3175  SATALPH2X 

STR 

Q*W  ( RA ) 

03275 

14030 

63002 

C3176  SATDV 

ENT 

G*W(NN  ) 

03276 

10030 

03633 

DV*NSASS2$SQRT( 1-ESS2 )/R$S2 

C3177 

MUL 

W(  AA) 

03277 

22030 

03636 

G  57 

C32C0 

RJP 

ROUND 

03300 

65000 

04060 

G  27 

C3201 

ENT 

Q*A 

03301 

10070 

00000 

NSASS2 

C3202 

MUL 

W  (  A  A  ) 

03302 

22030 

03636 

G  52 

C3203 

LSH 

AQ*  2 

03303 

07000 

00002 

G  54 

C32C4 

RJP 

ROUND 

03304 

65000 

04060 

GAMMA*24 

C32C5 

ENT 

0*  A 

03305 

10070 

00000 

NSASS2SSQRT ( 1-E$$2 ) 

C3206 

MUL 

W ( SATDVSTOR ) 

03306 

22030 

03730 

GAMMA*5 2 

C3207 

LSH 

AQ  *  2 

03307 

07000 

00002 

G  54 

C3210 

RJP 

ROUND 

03310 

65000 

04060 

G  24 

C3211 

STR 

A*W(MCALST0R1 ) 

03311 

15030 

03533 

X 

C3212 

ENT 

A*W(RANGEX) * ANOT 

03312 

11530 

03664 

X  IS  DEN  0 

C3213 

RJP 

SERROR 

03313 

65000 

04053 

X  YES 

C3214 

ENT 

Q*A 

03314 

10070 

00000 

X  NO 

C3215 

MUL 

W(RANGEX) 

03315 

22030 

03664 

GAMMA  50 

C3216 

RJP 

ROUND 

03316 

65000 

04060 

GAMMA*20 

C  32 1  7 

STR 

A*W(MCALST0R2) 

03317 

15030 

03534 

X 

C3220 

RJP 

FF 

03320 

65000 

05323 

C3221 

24D 

MCALST0R1 

03321 

00030 

03533 

C3222 

U-TAG  MCALNUM* 10 

03322 

04036 

00010 

C3223 

RJP 

FF 

03323 

65000 

05323 

C3224 

20D 

MCALST0R2 

03324 

00024 

03534 

C3225 

U-TAG  MCALDEN* 10 

03325 

04040 

00010 

C3226 

RJP 

FF 

03326 

65000 

05323 

C3227 

U-TAG  MCALNUM *MCALDEN 

03327 

04036 

04040 

C3230 

U-TAG  MCAL ANS*03 

03330 

04042 

00003 

C3231 

RJP 

FF 

03331 

65000 

05323 

C3232 

37D 

MC ALANS 

03332 

00045 

04  042 

C3233 

U-TAG  VDOT  *11 

03333 

03731 

00011 

C3234 

ENT 

A*W( DEROMEG  > 

03334 

11030 

03634 

C3235 

RSH 

A  *4 

03335 

02000 

00004 

G  37 

C3236 

ENT 

Q*W( VDOT) 

03336 

10030 

03731 

G  37 

C3237 

RJP 

SADD 

03337 

65000 

04073 

C3240 

RJP 

SOVERFLOW 

03340 

65000 

04046 

C3241 

STR 

A»W(UDOT ) 

U3341 

15030 

04001 

G  37 

C3242  SATDDELT 

ENT 

Q*W ( IIFSIN) 

03342 

10030 

03647 

DDELT/DT  ( S I N I SCOSU/COSDELT  A ) D 
U/DT 

C3243 

MUL 

W(LLFCUS) 

03343 

22030 

03671 

X  SINIFSCOSUF  G  56 

C3244 

RSH 

AQ*8D 

03344 

03000 

00010 

X  GAMMA*48 

C3245 

CIV 

W(DELTCOS)*NOOF 

03345 

23230 

03724 

X  SINI SCOS/COSDELTA  20 

C3246 

RJP 

SOVERFLOW 

03346 

65000 

04  046 

X 

C3247 

LSH 

A*  1 

03347 

06000 

00001 

X 

C3250 

COM 

A»W  ( DELTCOS ) * YMORE 

03350 

04730 

03724 

X 

C3251 

ADD 

Q*  1 

03351 

26000 

00001 

X 

C3252 

LSH 

AQ*8D 

03352 

07000 

00010 

X  GAMMA*28 

C3253 

MUL 

W ( UDOT ) 

03353 

22030 

04001 

G  65 

C3254 

RJP 

ROUND 

03354 

65000 

04060 

G  35 

C3255 

STR 

A*W(MCALST0R1 ) 

03355 

15030 

03533 

C3256 

ADD 

A  *0*  APOS 

03356 

20600 

00000 

X 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C3257 

CP 

A* 

03357 

15040 

00000 

C3260 

ENT 

Q*  A 

03360 

10070 

oooco 

X 

C3261 

CL 

A* 

03361 

11000 

00000 

X 

C3262 

LSH 

AQ  *2*AZ  ERO 

03362 

07400 

00002 

C3263 

RJP 

SERROR 

03363 

65000 

04053 

X 

C3264 

ENT 

A*W<MCALST0R1 )*APOS 

03364 

11630 

03533 

C3265 

CP 

Q* 

03365 

14000 

00000 

C3266 

STR 

Q* W ( DEC  DOT ) 

03366 

14030 

63010 

X  CHANGE  INCECLINAT ION  GAMMA 

37 

m 

C3267  SATDALPH 

CL 

Q* 

03367 

10000 

00000 

• 

C3270 

ENT 

A  *W ( IIFCOS) 

03370 

11030 

03650 

• 

C3271 

RSH 

AQ*6 

03371 

03000 

00006 

G  22 

C3272 

DIV 

WIDELTCOS )*NOOF 

03372 

23230 

03724 

(COSI/COSD)  G  24 

C3273 

RJP 

SOVERFLOW 

03373 

65000 

04046 

X 

C3274 

LSH 

A*  1 

03374 

06000 

00001 

X  ROUND  IF  NECESSARY 

C3275 

COM 

A*W(DELTCOS  )*YMORE 

03375 

04730 

03724 

• 

C3276 

ADD 

Q  *  1 

03376 

26000 

00001 

• 

C3277 

MUL 

W(UDOT) 

03377 

22030 

04  001 

( COS I-C0SDSS2 ) DU/DT  G  61 

• 

C33CO 

RJP 

ROUND 

03400 

65000 

0406  0 

G  31 

C3301 

STR 

A*W  ( MCALSTOR 1 ) 

03401 

15030 

03533 

G  31 

C3302 

ENT 

Q*W { DERRAM ) 

03402 

10030 

03635 

C3303 

MUL 

W ( CELT  COS ) 

03403 

22030 

03724 

G  69 

C3304 

RSH 

AQ*8D 

03404 

03000 

00010 

G  61 

C3305 

RJP 

ROUND 

03405 

65000 

04  06  0 

G  31 

C3306 

ENT 

Q*W(MCALST0R1 ) 

03406 

10030 

03533 

C3307 

RJP 

SADD 

03407 

65000 

04  073 

X  X  +DR AM- DALPHA  GAMMA 

26 

X 

C3310 

RJP 

SOVERFLOW 

03410 

65000 

04046 

C3311 

STR 

A*W(MCALST0R1 ) 

03411 

15030 

03533 

C3312 

ADD 

A*0*AP0S 

03412 

20600 

00000 

X 

C3313 

CP 

A* 

03413 

15040 

00000 

X 

C3314 

ENT 

C*  A 

03414 

10070 

00000 

X 

C3315 

CL 

A* 

03415 

11000 

00000 

X 

C3316 

LSH 

AQ*6* AZERO 

03416 

07400 

00006 

G  37 

C3317 

RJP 

SERROR 

03417 

65000 

04053 

X 

C3320 

ENT 

A*W(MCALST0R1 )*APOS 

03420 

11630 

03533 

C3321 

CP 

Q* 

03421 

14000 

OOOCO 

C3322 

STR 

Q*W ( R ADOT ) 

03422 

14030 

630C7 

CHANGE  IN  ALPHA  CALCUALTED 

C3323  D  RAD  I  US 

ENT 

Q*W ( A A ) 

03423 

10030 

03636 

CALCULATE  DRADIUS/DT 

C3324 

MUL 

W  (  EE ) 

03424 

22030 

03627 

X  (A$E$N$/SQRT ( 1-E$$2) )SINV 

C3325 

LSH 

AQ*  1 

03425 

07000 

00001 

X  A$E$  G  55 

C3326 

RJP 

ROUND 

03426 

65000 

04  060 

X  G  25 

C3327 

ENT 

Q*  A 

03427 

10070 

00000 

X 

C  3330 

MUL 

W  (  NN  ) 

03430 

22030 

03633 

X  A$E$N  G57 

• 

C3331 

RJP 

ROUND 

03431 

65000 

04  06  0 

X  G  27 

• 

C3332 

STR 

A*W ( MCALSTOR A ) 

03432 

15030 

03540 

X 

• 

C3333 

ENT 

C*W ( EE ) 

03433 

10030 

03627 

C  3334 

MUL 

W  (  EE  ) 

03434 

22030 

03627 

X  ESE  G  58 

C3335 

RJP 

ROUND 

03435 

65000 

04060 

X  G  28 

C3336 

ENT 

Q*A 

03436 

10070 

00000 

X 

C3337 

ENT 

A*W ( F  IXONE ) 

03437 

11030 

03606 

X 

C3340 

RJP 

SSUB 

03440 

65000 

04114 

X 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQU1L  KI N*  7/ 1 /65 


CARDS 

LI  ID  LJBEL 

T A  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C3341 

RJP 

SOVERFLOW 

03441 

65000 

04046 

X  1-ESS2  G  20 

C3342 

RSH 

A*2 

03442 

02000 

00002 

G*26 

C3343 

RJP 

SORT 

03443 

65000 

05504 

X  SQRT ( 1-ESS2 )  G  28 

C3344 

RJP 

SERROR 

03444 

65000 

04053 

X 

• 

C3345 

LSH 

A*  1 

03445 

06000 

00001 

G*20 

• 

C3346 

STR 

A*W  ( MCALSTORB ) 

03446 

15030 

03541 

X 

• 

C3347 

ENT 

A*W( MCALSTORA ) 

03447 

11030 

03540 

X  G  27 

C3350 

CL 

Q* 

03450 

10000 

00000 

X 

• 

C3351 

DIV 

W( MCALSTORB )  *NQOF 

03451 

23230 

03541 

X  A$E$N/SGRTU-E$$2>  G  29 

• 

C3352 

RJP 

SOVERFLOW 

03452 

65000 

04046 

X 

# 

C3353 

LSH 

A*  1 

03453 

06000 

00001 

X 

C3354 

COM 

A*W< MCALSTORB >*YMORE 

03454 

04730 

03541 

X 

C3355 

ADD 

Q*  1 

03455 

26000 

00001 

X 

• 

C3356 

MUL 

W( VVSIN) 

03456 

22030 

03673 

X  G  57 

# 

C3357 

LSH 

AG* 10D 

03457 

07000 

00012 

G  67 

• 

C3360 

RJP 

ROUND 

03460 

65000 

04060 

G  37  DRADIUS/DT  ER.  RADII/SEC 

C3361 

ENT 

Q*A 

03461 

10070 

00000 

X  CONVERT  EARTH  RADII  TO  MAUT 
•  MI. 

G  54 

« 

C3362 

MUL 

W ( EQUATOR ) 

03462 

22030 

63323 

• 

C3363 

RJP 

ROUND 

03463 

65000 

04060 

G  24 

# 

C3364 

STR 

A*W(RADIUSDOT) 

03464 

15030 

63011 

DRADIUS/DT  NAUT.Hl/SEC  G  24 

C3365 

ENT 

A*W { ALPHB ) 

03465 

11030 

03677 

COS  CHI*SIN$COS( ALPHA-RAM) 

C3366 

ENT 

Q*W ( RAM ) 

03466 

10030 

03632 

X 

# 

C3367 

RJP 

SSUB 

03467 

65000 

04114 

X  ALPHA-RAM  GAMMA 

*26 

• 

C3370 

RJP 

SOVERFLOW 

03470 

65000 

04046 

X 

• 

C337I 

ENT 

Q*26D 

03471 

10000 

00032 

X 

# 

C3372 

RJP 

COSX 

03472 

65000 

05345 

• 

C3373 

ENT 

Q*A 

03473 

10070 

00000 

X 

• 

C3374 

MUL 

W(  IIFSIN) 

03474 

22030 

03647 

X  SINI $COS( ALPHA-RAM)  G  5L 

• 

C3375 

LSH 

AQ*3 

03475 

07000 

00003 

X  GAMMA 

*59 

• 

C3376 

RJP 

ROUND 

03476 

65000 

04060 

X  GAMMA 

*29 

# 

C3377 

STR 

A*W(COSORIENT ) 

03477 

15030 

63065 

X 

# 

C3400 

ENT 

Q*  A 

03500 

10070 

00000 

SIN  CHI=SQRT ( l-COSCHI SS2 ) 

• 

C3401 

MUL 

W(COSORIENT) 

03501 

22030 

63065 

X  C0SCHISS2  GAMMA 

*58 

• 

C3402 

RJP 

ROUNO 

03502 

65000 

04060 

X  GAMMA 

*28 

• 

C3403 

ENT 

Q*  A 

03503 

10070 

00000 

X 

• 

C3404 

ENT 

A*W ( F IXONE ) 

03504 

11030 

03606 

X  GAMMA 

.20 

C3405 

RJP 

SSUB 

03505 

65000 

04114 

X  l-COSCHI SS2  GAMMA 

28 

X 

• 

C3406 

RJP 

SOVERFLOW 

03506 

65000 

04046 

• 

C3407 

RSH 

A*2 

03507 

02000 

00002 

G*26 

• 

C3410 

RJP 

SORT 

03510 

65000 

05504 

XSQRT ( l-COSCHI S$2 )  GAMMA 

20 

C3411 

RJP 

SERROR 

03511 

65000 

04053 

C3412 

LSH 

A*  2 

03512 

06000 

00002 

SIN  CHL  G*29 

C3413 

STR 

A*W  C  S I  NOR IENT ) 

03513 

15030 

63064 

X 

SATEL 


CARDS  11  ID  LJBEL  T A  STATEMENT 


.  C34l4 

.  C3415 

.  C3416 

.  C3417 

.  C3420 

.  C3421 

.  C3422 

•  C3423 

.  C3424 

.  C3425 

.  C3426 

C3427 
.  C3430 

.  C3431 

.  C3432 

.  C3433 

.  C3434 

.  C3435 

.  C  3436 

.  C3437 

.  C3440 

.  C3441 

.  C3442 

.  C3443 

00  .  C3444 

00  .  C3445 

.  C3446 

.  C3447 

.  C3450 

.  C3451 

.  C3452 

.  C3453 

.  C3454 

.  C3455 

.  C3456 

.  C3457 

.  C3460 

C3461 
.  C3462 

.  C3463 

.  C3464 

.  C  3465 

.  C3466 

.  C3467 

.  C3470 

C3471 
.  C3472 

.  C3473 

.  C3474 

.  C3475 

.  C3476 


R PL  Y+  1  *L ( SC ALC ) 
EXIT 


MCALST0R7 

C 

0 

MCALCCN5 

0 

0 

MCALCCN6 

C 

0 

MCALCCN  7 

0 

0 

MCALCCN8 

0 

0 

MCALA2P2 

0 

0 

MCALGM3 

0 

0 

MCALP2 

0 

0 

MCALCCN9 

c 

0 

MRAMCCR 

c 

0 

MTIME 

c 

0 

0 

0 

D*TE 

00000 

00020 

mcalstori 

0 

0 

MCALSTCR2 

c 

0 

MCALST0R3 

0 

0 

MCALST0R4 

0 

0 

MCALST0R5 

0 

0 

MCALSTORA 

0 

0 

MCALSTORB 

0 

0 

MC ALSTORC 

0 

0 

MCALCCN1 

c 

0 

MCALCCN2 

0 

0 

MCALCCN3 

0 

0 

MCALCCN4 

0 

0 

MCALARGU 

RESERVE 

14 

MCALSUM 

0 

0 

0 

0 

MCALCNT 

0 

0 

mcaldiff 

0 

0 

0 

0 

MCALSTORN 

0 

0 

MCALGM 

C0001 

47057 

COMMENT 

F  1X32 

06000 

00000 

F  I X 1 6 

05252 

52525 

FIX14 

10000 

00000 

F  1X13 

12525 

25252 

DATEC0N1 

Cllll 

74004 

DATEC0N2 

00001 

01001 

0ATECCN3 

0 

50032 

F  1X864 

25060 

00000 

FXDEGRAD 

00435 

75065 

MCALTWO 

0 

00002 

0 

00003 

0 

00004 

F  IXONE 

20000 

00000 

FIXTWO 

20000 

00000 

FIX3 

30000 

00000 

OUTPUT  NO.  210 
MCQUILKIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

03514 

36010 

02672 

03515 

61010 

02672 

03516 

00000 

oooco 

03517 

00000 

00000 

03520 

00000 

oooco 

03521 

00000 

00000 

03522 

00000 

00000 

03523 

00000 

00000 

03524 

00000 

00000 

03525 

00000 

00000 

03526 

00000 

oooco 

03527 

00000 

00000 

03530 

00000 

00000 

03531 

00000 

00000 

03532 

00000 

0002  0 

03533 

00000 

oooco 

03534 

00000 

00000 

03535 

00000 

00000 

03536 

00000 

00000 

03537 

00000 

00000 

03540 

00000 

00000 

03541 

00000 

00000 

03542 

00000 

00000 

03543 

00000 

00000 

03544 

00000 

00000 

03545 

00000 

00000 

03546 

00000 

00000 

03547 

00000 

00000 

03563 

00000 

00000 

03564 

00000 

00000 

03565 

00000 

oooco 

03566 

00000 

00000 

03567 

00000 

00000 

03570 

00000 

00000 

03571 

00001 

47057 

GM  .00000153618  E. RAD 1 1 { CUBED 
l/SECISQRD 

BINARY  PT  35 

03572 

06000 

00000 

03573 

05252 

52525 

03574 

10000 

00000 

03575 

12525 

25252 

03576 

01111 

74004 

2,400,000.5  BINARY  PT.  3 

03577 

00001 

01001 

33281  BINARY  PT.  0 

03600 

00000 

50032 

.00003508  DEGREES/DAY  BINARY 
PT.  29 

03601 

25060 

00000 

G- 12 

03602 

00435 

75065 

G*29  CONVERT  DEG. TO  RAD. 

03603 

00000 

00002 

03604 

00000 

00003 

03605 

00000 

00004 

03606 

2000C 

OOOCO 

GAMMA=28 

03607 

20000 

00000 

X  *27 

03610 

30000 

00000 

X  *27 

SATEL 


CAROS 

LI  ID 

LABEL 

TA  STATEMENT 

C3477 

F  1X6 

3000C 

00000 

C35C0 

F  1X5 

24000 

00000 

C3501 

FIX56 

32525 

25253 

C3502 

FIX712 

22525 

25253 

C3503 

F  1X12 

20000 

00000 

C35Q4 

FIX52 

24000 

00000 

C3505 

FIXTWOX 

10000 

00000 

C3506 

FIXONEX 

04000 

00000 

C3507 

MCALA2 

C00324631 7 

C35I0 

RP 

C 

0 

C35II 

EE2 

0 

0 

C35I2 

E VALCOS 

C 

0 

C35I3 

EVALSIN 

0 

0 

C3514 

COMMENT 

C35I5 

COMMENT 

• 

C35I6 

MM 

0 

0 

• 

C35I7 

EE 

0 

0 

• 

C3520 

I  I 

0 

0 

• 

C352I 

ZCMEGA 

0 

0 

• 

C3522 

R  AM 

0 

0 

• 

C3523 

NN 

0 

0 

C3524 

DEROMEG 

c 

0 

C3525 

DERRAH 

0 

0 

C3526 

AA 

0 

0 

C3527 

DELTL 

0 

0 

C3530 

DELTR 

0 

0 

C353I 

DELTRAM 

0 

0 

• 

C3532 

OELTI 

0 

0 

• 

C3533 

EGVAL 

0 

0 

• 

C3534 

E  VAL 

c 

0 

C3535 

I  IS  I N 

0 

0 

C3536 

I  ICOS 

0 

0 

• 

C3537 

I  IFSIN 

0 

0 

• 

C3540 

I IFCOS 

0 

0 

• 

C354I 

ZCSIN 

0 

0 

• 

C3542 

ZCCOS 

c 

0 

• 

C3543 

RAMSIN 

0 

0 

• 

C3544 

RAMCOS 

c 

0 

• 

C3545 

RAMFSIN 

0 

0 

• 

C3546 

RAMFCCS 

0 

0 

• 

C3547 

M  IS  I  N 

0 

0 

• 

C3550 

M  ICOS 

c 

0 

• 

C3551 

M3SIN 

0 

0 

• 

C3552 

E  1L AST 

c 

0 

• 

C3553 

E2LAST 

0 

0 

• 

C3554 

R ANGEX 

c 

0 

• 

C3555 

LL 

0 

0 

C3556 

LISIN 

0 

0 

OUTPUT  NO.  210 
MCQUILKIN»7/l/65 


LOC 

F  JKB 

Y 

NOTES 

03611 

30000 

00000 

X  =26 

03612 

24000 

00000 

X  =26 

03613 

32525 

25253 

X  *29 

03614 

22525 

25253 

X  =29 

03615 

20000 

00000 

X  =29 

03616 

24000 

00000 

X  *27 

03617 

10000 

00000 

GAMMA*26 

03620 

04000 

00000 

GAMMA*26 

03621 

00032 

46317 

DEC  + .00162354829 

A 

03622 

00000 

00000 

03623 

00000 

00000 

03624 

00000 

00000 

03625 

00000 

00000 

GENERAL  STORAGE 

LOCATIONS 

OF 

CALCULATED  MEAN 

ELEMENTS 

03626 

00000 

00000 

MEAN  ANOMALY  B 

26  RADIANS 

03627 

00000 

00000 

ECCENTRICITY  B 

29 

03630 

00000 

00000 

INCLINATION  B 

26 

03631 

00000 

00000 

ARGUMENT  OF  PERIGEE  B  26 

RADIA 

NS 

03632 

00000 

oooco 

RIGHT  ASCENSION 

8  26 

03633 

00000 

00000 

ANOMALISTIC  PERIOD  B  31 

RADI 

ANS/SEC 

03634 

00000 

00000 

DW/DT  B  41 

03635 

00000 

00000 

DRA/DT  B  41 

03636 

00000 

00000 

SEMI-MAJOR  AXIS 

B25 

EARTH 

RADII 

03637 

00000 

00000 

03640 

00000 

00000 

03641 

00000 

oooco 

03642 

00000 

oooco 

03643 

00000 

00000 

03644 

00000 

00000 

03645 

00000 

00000 

03646 

00000 

00000 

03647 

00000 

00000 

03650 

00000 

00000 

03651 

00000 

00000 

03652 

00000 

00000 

03653 

00000 

00000 

03654 

00000 

00000 

03655 

00000 

00000 

03656 

00000 

00000 

03657 

00000 

00000 

03660 

00000 

00000 

03661 

00000 

00000 

03662 

00000 

00000 

03663 

00000 

00000 

03664 

00000 

ooooo 

03665 

00000 

00000 

03666 

00000 

ooooo 

SATEL 


CARDS 

LI  ID 

LABEL 

TA  STATEMENT 

C3557 

L  LCDS 

0 

0 

C3560 

LLFSIN 

0 

0 

C3561 

LLFCOS 

0 

0 

C3562 

VV 

0 

0 

C3563 

VVSIN 

0 

0 

C  3564 

VVCOS 

0 

0 

C3565 

T  CON 

0 

0 

C3566 

DELTB 

0 

0 

• 

C3567 

ALPHB 

0 

0 

• 

C3570 

DELTSIN 

0 

0 

• 

C3571 

ALPHSIN 

0 

0 

C3572 

PP 

0 

0 

C  3573 

SINDEN 

0 

0 

C  3  574 

SINUM 

0 

0 

C3575 

E  PRES W 

0 

0 

C3576 

AVAL 

0 

0 

C3577 

BVAL 

0 

0 

C36C0 

CVAL 

0 

0 

C36C1 

STEM1 

0 

0 

C3602 

MECON 

0 

0 

C3603 

SINTK 

0 

0 

C36C4 

GM 

0 

0 

C3605 

A  2 

0 

0 

C3606 

WCNEP26 

04000 

1 

C3607 

WCNE28 

2000C 

0 

C3610 

WCNE29 

40000 

0 

C3611 

TWC26 

100C0 

0 

C3612 

METCON 

0 

0 

C3613 

EKODE 

0 

0 

C3614 

DELTCOS 

0 

0 

C3615 

SSPROD 

0 

0 

• 

C3616 

SSSUM 

0 

0 

• 

C3617 

SSPI 

31103 

75524 

• 

C3620 

SATDVSTCR 

0 

0 

• 

C3621 

VDOT 

0 

0 

C3622 

T  INI T 

0 

0 

C3623 

0 

0 

C  3624 

delt 

OOOOO 

00074 

C3625 

KCCN 

ooooo 

00074 

C3626 

M  TEMPI 

0 

0 

C3627 

0 

0 

C3630 

MTEMP2 

0 

0 

C3631 

0 

0 

C3632 

MTEMP3 

0 

0 

C3633 

0 

0 

C3634 

MTEMP4 

0 

0 

C3635 

0 

0 

C3636 

MTEMP5 

0 

0 

C3637 

0 

0 

C3640 

METC0N2 

0 

0 

C3641 

METC0N3 

0 

0 

C3642 

DAYX 

0 

0 

C3643 

0 

0 

OUTPUT  NO.  210 
MCQUILKIN*7/l/65 


LOC  F  JKB  Y 


03667 
03670 
03671 
03672 
03673 
03674 
03675 
036  76 
03677 
03700 
03701 
03702 
03703 
03704 
03705 
03706 
03707 
03710 
03711 
03712 
03713 
03714 
03715 
03716 
03717 
03720 
03721 
03722 
03723 
03724 
03725 
03726 
03727 
03730 
03731 
03732 
03733 
03734 
03735 
03736 
03737 
03740 
03741 
03742 
03743 
03744 
03745 
03746 
03747 
03750 
03751 
03752 
03753 


00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
04000 
2  0000 
40000 
10000 
00000 
00000 
00000 
00000 
00000 
31103 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 


00000 

00000 

ooooo 

00000 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

00001 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

75524 

ooooo 

ooooo 

ooooo 

ooooo 

00074 

00074 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 

ooooo 


NOTES 


60  SEC 


SATEL 


s£> 


CARDS 

LI  ID 

LABEL 

TA  STATEMENT 

C3644 

DAYCCN 

0 

0 

• 

C3645 

0 

0 

• 

C3646 

DELTX 

0 

0 

• 

C3647 

0 

0 

C3650 

KCCNX 

0 

0 

C3651 

0 

0 

C3652 

SINVO 

EQUALS  SINVV 

C3653 

M1EMP7 

0 

0 

C3654 

0 

0 

C3655 

MTEMP6 

0 

0 

C3656 

0 

0 

C3657 

JMP0ELT12 

0 

0 

C3660 

0 

0 

C3661 

TIME1 

0 

0 

C3662 

TIMEF 

0 

0 

C3663 

T  IMED 

0 

0 

C3664 

TIME 

0 

0 

C3665 

CELTIMEX 

0 

0 

C3666 

0 

0 

C3667 

JMPK 

0 

0 

C3670 

0 

0 

• 

C3671 

TCNTA 

0 

0 

• 

C3672 

UDOT 

0 

0 

• 

C3673 

FLT6C 

0 

40006 

C3674 

17000  00000 

C3  67  5 

FLT5000 

0 

40015 

C3676 

11610  00000 

C3677 

FLT064 

0 

40021 

C3700 

12430  00000 

C3701 

FLT423 

0 

40023 

C3702 

05205  60000 

C3703 

FLTTWO 

0 

40002 

C3704 

10000  0 

C37C5 

FLTTWOX 

0 

40002 

C3706 

10000  0 

C3707 

FLTONE 

0 

40001 

C3710 

10000  0 

C3711 

F  LTTWGXX 

0 

40002 

C3712 

10000  0 

C3713 

T  WOP  I 25 

14441  76653 

C3714 

F  IXTWOXX 

10000  00000 

C3715 

TWPI25 

14441  76652 

• 

C3716 

TWPI26 

31103 

l  75524 

• 

C3717 

SAT2PI 

EQUALS  TWPI2I 

• 

C3720 

DECON 

0 

3 

C3721 

MCUAD 

0 

0 

C3722 

ASINXCON 

0 

0 

• 

C3723 

MCALNFLT 

0 

0 

• 

C3724 

0 

0 

• 

C3725 

GMFLT 

0 

0 

C3726 

0 

0 

C3727 

MCALGMN2 

c 

0 

C3730 

MCALNUM 

0 

0 

OUTPUT  NO.  210 
MCQUI L  KIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

03754 

00000 

00000 

03755 

00000 

00000 

03756 

00000 

00000 

03757 

00000 

00000 

03760 

00000 

00000 

03761 

00000 

00000 

03762 

00000 

00000 

03763 

00000 

00000 

03764 

00000 

00000 

03765 

00000 

00000 

03766 

00000 

00000 

03767 

00000 

00000 

03770 

00000 

00000 

03771 

00000 

00000 

03772 

00000 

00000 

03773 

00000 

00000 

03774 

00000 

00000 

03775 

00000 

00000 

03776 

00000 

00000 

03777 

00000 

00000 

04000 

00000 

00000 

04001 

00000 

00000 

04002 

00000 

40006 

04003 

17000 

00000 

04004 

00000 

40015 

04005 

11610 

00000 

04006 

00000 

40021 

04007 

12430 

00000 

04010 

00000 

40023 

04011 

05205 

60000 

04012 

00000 

40002 

04013 

10000 

00000 

04014 

00000 

40002 

04015 

10000 

00000 

04016 

00000 

40001 

04017 

10000 

00000 

04020 

00000 

40002 

04021 

10000 

00000 

04022 

14441 

76653 

2  P I  ♦ 

BINARY 

PT 

25 

04023 

10000 

00000 

04024 

14441 

76652 

2PI 

BINARY 

PT 

25 

04025 

31103 

75524 

2PI 

BINARY 

PT 

26 

04026 

00000 

00003 

04027 

00000 

00000 

04030 

00000 

00000 

04031 

00000 

00000 

04032 

00000 

00000 

04033 

00000 

00000 

04034 

00000 

00000 

04035 

00000 

00000 

04036 

00000 

00000 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL  KI N*7/ 1/65 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C3731 

0 

0 

04037 

00000 

OOOOO 

C3732 

MCALDEN 

C 

0 

04040 

00000 

OOOCO 

C3733 

0 

0 

04041 

00000 

OOOOO 

C3734 

mcalans 

0 

0 

04042 

00000 

OOOCO 

C3735 

0 

0 

04043 

00000 

ooooo 

C3736 

MCALA2P 

c 

0 

04044 

00000 

ooooo 

C3737 

ECELT 

0 

0 

04045 

ooooo 

ooooo 

C3740 

SCVERFLOW 

ENTRY 

04046 

61000 

ooooo 

C3741 

ENT 

A  *L ( SOVERFLOW ) 

04047 

11010 

04046 

C3742 

STR 

A*L(ERRINST) 

04050 

15010 

05065 

C3743 

ENT 

A  *0 

04051 

11000 

OOOOO 

C3744 

JP 

L<  SATWORK) 

04052 

61010 

06040 

C3745 

SERROR 

ENTRY 

04053 

61000 

OOOOO 

C3746 

ENT 

A*L( SERROR ) 

04054 

11010 

04053 

C3747 

STR 

A*L ( ERR  INST ) 

04055 

15010 

05065 

C3750 

ENT 

A*0 

04056 

11000 

OOOOO 

C3751 

JP 

L( SATWORK) 

04057 

61010 

06040 

C3752 

RCUND 

ENTRY 

04060 

61000 

OOOOO 

C3753 

ADD 

A  *0» APOS 

04061 

20600 

OOOOO 

C3754 

JP 

$  ♦4 

04062 

61000 

04066 

C3755 

ADD 

Q»0*QPOS 

04063 

26600 

OOOOO 

APOS-ROUND  ON  QNEG 

C3  756 

ADD 

A*  1 

04064 

20000 

00001 

C3757 

EXIT 

04065 

61010 

04060 

C3760 

ADD 

Q *0*QNEG 

04066 

26700 

OOOOO 

ANEG-ROUND  ON  QPOS 

C3761 

SUB 

A*1 

04067 

21000 

00001 

ANSWER  IN  A 

C3762 

EXIT 

04070 

61010 

04060 

C3763 

RESERVE  2 

04071 

ooooo 

OOOOO 

C3764 

SADO 

ENTRY 

04073 

61000 

OOOOO 

C3765 

JP 

S ADD  1* ANEG 

04074 

60700 

04101 

TEST  ARG  IN  A 

C3766 

JP 

SADD2*QNEG 

04075 

60300 

04105 

♦A tTEST  Q 

C3767 

STR 

A+Q*W(TEMP)»APOS 

04076 

32630 

04133 

♦  A  f +  Q  ADD  AND  TEST 

SIGN 

C3770 

JP 

L ( S ADD ) 

04077 

61010 

04073 

-ANS  *  ERROR 

C3771 

JP 

SADXT 

04100 

61000 

04106 

NORMAL  EXIT 

C3772 

SADD1 

JP 

SADD2*QP0S 

04101 

60200 

04105 

-A, TEST  Q 

C3773 

STR 

A+Q*W ( T  EMP ) * ANEG 

04102 

32730 

04133 

-Af-Q  ADD  AND  TEST 

SIGN 

C3774 

JP 

L ( S ADD ) 

04103 

61010 

04073 

♦ANS  *  ERROR 

C3775 

JP 

SADXT 

04104 

61000 

04106 

-ANS  *  NORMAL  OUT 

C3776 

SADD2 

STR 

A *Q*W ( T EMP  ) 

04105 

32030 

04133 

A*  Q  SIGNS  DIFF 

C3777 

SADXT 

ENT 

Q*L ( SADD ) 

04106 

10010 

04073 

C4CC0 

ADD 

Q*  1 

04107 

26000 

00001 

C4001 

STR 

Q*L ( SADD ) 

04110 

14010 

04073 

C4002 

JP 

L(SADD) 

04111 

61010 

0407  3 

C4003 

RESERVE  2 

04112 

ooooo 

OOOOO 

C4CC4 

S  SUB 

ENTRY 

04114 

61000 

OOOOO 

C4C05 

JP 

SSUB1 *ANEG 

04115 

60700 

04122 

AttGl  IN  A  -  TEST  SIGN 

C4006 

JP 

SSUB2*QP0S 

04116 

60200 

04126 

♦A  ARG2  IN  Q  -  TEST 

SIGN 

C4007 

STR 

A-Q*W<TEMP)*APOS 

04117 

33630 

04133 

♦Af-Q  SUBTRACT  AND 

TEST  ANS 

C4010 

JP 

L( SSUB) 

04120 

61010 

04114 

-ANS  IMPLIES  ERROR 

C4011 

JP 

SSBXT 

04121 

61000 

04127 

♦ANS  -  EXIT 

C4012 

SSUB1 

JP 

SSUB2* ANEG 

04122 

60700 

04126 

-A  TEST  Q 

C4013 

STR 

A-Q*W(TEMP)«ANEG 

04123 

33730 

04133 

-A  f  ♦Q 

C4C14 

JP 

L( SSUB) 

04124 

61010 

04114 

♦ANS  *  ERROR 

C4015 

JP 

SSBXT 

04125 

61000 

04127 

-ANS  *  EXIT 

OUTPUT  NO.  210 

SATEL 

MCQUILKIN*7/l/65 

CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C4016  SSUB2 

STR 

A-Q*W(TEMP) 

04126 

33030 

04133 

A,Q  SAME  SIGN 

C4017  SSBXT 

ENT 

Q*L ( SSUB ) 

04127 

10010 

04114 

NORMAL  EXIT 

C4C20 

ADD 

Q  •  I 

04130 

26000 

00001 

• 

C4C21 

STR 

Q*L ( TEMP ) 

04131 

14010 

04133 

• 

C4C22 

JP 

L ( TEMP  ) 

04132 

61010 

04133 

• 

C4023  TEMP 

0 

0 

04133 

00000 

00000 

C4C24 

RESERVE  2 

04134 

00000 

00000 

C4025  S INI  I 

ENTRY 

04136 

61000 

00000 

C4026 

COMMENT  CALC 

SINI*SINIF*SINI+OI(LOSI) 

C4027 

STR 

B6  *L ( S I N I B6 ) 

04137 

16610 

04222 

C4030 

STR 

B7*L(SINIB7) 

04140 

16710 

04223 

C4031 

PUT 

S ADO*L ( S I N I T3 ) 

04141 

10000 

04073 

04142 

14010 

04172 

C4C32 

ENT 

A»W( I I  ) 

04143 

11030 

03630 

C4033 

ENT 

Q*26D 

04144 

10000 

00032 

C4G34 

R  JP 

SINX 

04145 

65000 

05357 

C4035 

STR 

A»W< I I S IN ) 

04146 

15030 

03645 

C4036 

ENT 

A*W (  II  ) 

04147 

11030 

03630 

C4037 

ENT 

Q  •  260 

04150 

10000 

00032 

C4040 

R  JP 

COSX 

04151 

65000 

05345 

C4041 

STR 

A*W( IICOS) 

04152 

15030 

03646 

COSI  G*28 

C4042 

ENT 

B6  *0 

04153 

12600 

00000 

C4043 

ENT 

B7*0 

04154 

12700 

00000 

C4044  SINIT2 

ENT 

Q*W(  I  ICOS+B 7  J 

04155 

10037 

03646 

\o 

• 

C4045 

MUL 

WIDELTI ) 

04156 

22030 

03642 

G*26 

• 

C4046 

LSH 

AO*  2 

04157 

07000 

00002 

G=24  MAKE  IT  26 

• 

C4047 

R  JP 

ROUND 

04160 

65000 

04060 

C4050 

STR 

A *W ( S I NUM  ) 

04161 

15030 

03704 

NO  G*26 

C4C51 

ADO 

A  *0  *  APOS 

04162 

20600 

00000 

C4052 

CP 

A* 

04163 

15040 

00000 

C4C53 

COM 

A*W(TWO26)*YM0RE 

04164 

04730 

03721 

IS  COS ( S I N ) D1  *2  OR  MORE 

C4054 

R  JP 

SOVERFLOW 

04165 

65000 

04046 

C4C55 

ENT 

A*W ( I ISIN+B6) 

04166 

11036 

03645 

SIN(COS)  G=28 

C4056 

RSH 

AQ*2 

04167 

03000 

00002 

MAKE  IT  26 

C4057 

R  JP 

ROUND 

04170 

65000 

04060 

C4060 

ENT 

Q*W ( SI NUM ) 

04171 

1003  0 

03704 

C4C6I  SINIT3 

R  JP 

SACO 

04172 

65000 

04073 

SIN(COS)+DI ( COS (SIN) ) 

C4C62 

R  JP 

SOVERFLOW 

04173 

65000 

04046 

C4C63 

A  OD 

A*0*APOS 

04174 

20600 

00000 

C4C64 

JP 

S  ♦4 

04175 

61000 

04201 

C4C65 

COM 

A*W( WONEP26)*YMORE 

04176 

04730 

03716 

IS  SIN(COS)  MORE  THAN  1 

C4066 

ENT 

A*W( FIXONEX ) 

04177 

11030 

03620 

C4C67 

JP 

SINIT31 

04200 

61000 

04205 

C4C70 

CP 

A* 

04201 

15040 

00000 

C4C71 

COM 

A*W(W0NEP26)*YM0RE 

04202 

04730 

03716 

C4072 

ENT 

A *W ( F I XONEX  ) 

04203 

11030 

03620 

C4073 

CP 

A* 

04204 

15040 

00000 

C4C74  SINIT31 

LSH 

A  *2 

04205 

06000 

00002 

C4C75 

STR 

A  *  W (  I  IFSIN  +  B6) 

04206 

15036 

03647 

C4076 

COMMENT  CALC 

COS  I F=COSI-OIS INI 

C4C77 

ENT 

A*B6* AZERO 

04207 

11406 

00000 

C41C0 

JP 

SINIT32 

04210 

61000 

04216 

C4IC1 

ENT 

B6*UB6 

04211 

12606 

00001 

SATEL 


SPURT 


CARDS  LI  ID  LABEL  TA  STATEMENT 


vO 

4^ 


C41C2 

ENT 

B7*-l 

C4103 

PUT 

SSUB«L ( S IN  I T3 ) 

C41C4 

JP 

SINIT2 

C4105  SINIT32 

MOVE 

2«IIFSIN*IISIN 

C4106 

S  INIB6 

ENT 

B6*0 

C41C7 

S  INIB7 

ENT 

B7«0 

C4110 

EXIT 

C4111 

PREDICTS 

ENTRY 

C4112 

COMMENT  GUESS 

C4113 

ENT 

A*U( EPRESW)*AZERO 

C4114 

JP 

PRED2 

C4115 

ENT 

A*W ( EPRESW ) 

C4116 

ADD 

A*40000 

C4  1 17 

STR 

A  *W ( EPRESW ) 

C4120 

ENT 

Q*W ( EE ) 

C4121 

MUL 

W  C  EE  ) 

C4122 

LSH 

AQ*  1 

C4123 

R  JP 

ROUND 

C4124 

STR 

A«W( EE2) 

C4125 

ENT 

Q«  A 

C4126 

MUL 

W(  EE) 

C4127 

RSH 

AQ*3 

C4130 

R  JP 

ROUND 

C4131 

STR 

A*W( AVAL) 

C4132 

ENT 

Q*  A 

C4133 

MUL 

3 

C4134 

STR 

Q*W(CVAL) 

C4135 

ENT 

A *W ( E E  ) 

C4136 

ENT 

Q*W( AVAL) 

C4137 

LSH 

Q*  1 

C4140 

R  JP 

S  SUB 

C4141 

R  JP 

SOVERFLOW 

C4142 

STR 

A«W ( AVAL ) 

C4143 

ENT 

A  *W  ( MM  ) 

C4144 

ENT 

Q*260 

C4145 

R  JP 

SINX 

C4146 

STR 

A*W(M1SIN) 

C4147 

ENT 

A  * W ( MM ) 

C4150 

ENT 

Q*26D 

C4151 

R  JP 

COSX 

C4152 

STR 

A«W( M1C0S ) 

C4153 

ENT 

Q*W(M1SIN) 

C4154 

MUL 

W ( AVAL  ) 

C4155 

RSH 

AQ  *  1 

C4156 

R  JP 

ROUND 

C4157 

STR 

A  *W ( AVAL ) 

C4160 

ENT 

G*W(M1S  IN) 

C4161 

MUL 

W(MICOS) 

C4162 

LSH 

AQ«2 

OUTPUT  NO.  210 
MCOUI L  KIN«7/l/65 


LOC 

F  JKB 

Y 

NOTES 

04212 

12700 

77776 

04213 

10000 

04114 

04214 

14010 

04172 

04215 

61000 

04155 

04216 

10030 

03647 

04217 

14030 

03645 

04220 

10030 

03650 

04221 

14030 

03646 

04222 

12600 

00000 

04223 

12700 

00000 

04224 

61010 

04136 

04225 

61000 

00000 

VALUE  OF  E  (1ST  TIMEI 

04226 

11420 

03705 

04227 

61000 

04345 

NO 

04230 

11030 

03705 

04231 

20000 

40000 

04232 

15030 

03705 

04233 

10030 

03627 

YES  G*29 

04234 

22030 

03627 

G*29 

04235 

07000 

000C1 

G*28  MAKE  IT  29 

04236 

65000 

04  060 

04237 

15030 

03623 

E2  G*  29 

04240 

10070 

00000 

04241 

22030 

03627 

E3  G*28 

04242 

03000 

00003 

04243 

65000 

04060 

04244 

15030 

03706 

AVAL*E3/8  G*29 

04245 

10070 

00000 

04246 

22000 

00003 

3E3/8  G=0 

04247 

14030 

03710 

CV AL*3E3/8  G*29 

04250 

11030 

03627 

G  =  29 

04251 

10030 

03706 

G*29 

04252 

05000 

00001 

04253 

65000 

04114 

04254 

65000 

04  046 

04255 

15030 

03706 

E-E3/8  G*29 

04256 

11030 

03626 

PREPARE  TO  CALC  SIN 

04257 

10000 

00032 

04260 

65000 

05357 

04261 

15030 

03657 

04262 

11030 

03626 

CALC  COS 

04263 

10000 

00032 

04264 

65000 

05345 

04265 

15030 

03660 

04266 

10030 

03657 

( E-E3 /8 ) S I NM  G*28 

04267 

22030 

03706 

G  =  29 

04270 

03000 

00001 

G*27  MAKE  IT  26 

04271 

65000 

04  060 

04272 

15030 

03706 

AVAL*(E-E3/8)SINM  G*26 

04273 

10030 

03657 

SINM(COSM)  G*28 

04274 

22030 

03660 

G*  28 

04275 

07000 

OOOC2 

G*26  MAKE  IT  28 

.  SPURT  OUTPUT  NO*  210 

SATEL  MCQUILKI N*7/ 1 /65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C4163 

R  JP 

ROUNO 

04276 

65000 

04060 

C4164 

ENT 

Q*  A 

04277 

10070 

00000 

SIN(COS)  TOG  G*28 

C4165 

MUL 

W(EE2) 

04300 

22030 

03623 

MUL  BY  E2  G=29 

C4166 

RSH 

AQ*  1 

04301 

03000 

00001 

G*27  MAKE  IT  26 

C4167 

R  JP 

ROUNO 

04302 

65000 

0406  0 

C4I70 

STR 

A*W I BV AL ) 

04303 

15030 

03707 

BVAL*E2SINMC0SM*  1/2E2SIN2M 
*26 

C4171 

ENT 

Q*W( MIS  IN ) 

04304 

10030 

03657 

CALC  SIN3M=3SINM-4(SINM)3 

C4172 

MUL 

3 

04305 

22000 

00003 

G*-2 

C4173 

LSH 

AQ*28D 

04306 

07000 

00034 

G=  26 

C4174 

R  JP 

ROUND 

04307 

65000 

04  06  0 

C4175 

STR 

A*W( M3S IN ) 

04310 

15030 

03661 

M3SI N*3S INM  G=26 

C4176 

ENT 

Q*W( MIS  IN ) 

04311 

10030 

0365  7 

G  =  28 

C4177 

MUL 

W(MISIN) 

04312 

22030 

03657 

G*28 

C42C0 

LSH 

AQ*2 

04313 

07000 

00002 

G*26  MAKE  IT  28 

C42C1 

R  JP 

ROUNO 

04314 

65000 

04060 

• 

C42C2 

ENT 

Q*  A  ^ 

04315 

10070 

00000 

G*28 

• 

C42C3 

MUL 

W(MISIN) 

04316 

22030 

03657 

G*28 

• 

C4204 

LSH 

AQ*2 

04317 

07000 

00002 

G*26  MUL  BY  4  MAKES  G*24  MAI 
IT  26 

C42C5 

R  JP 

ROUND 

04320 

65000 

04060 

C42C6 

ENT 

Q*A 

04321 

10070 

00000 

4 1  MIS  I N3 )  G*26 

C4207 

ENT 

A  *W ( M3S IN ) 

04322 

11030 

03661 

G*26  3SINM 

• 

C4210 

R  JP 

SSUB 

04323 

65000 

04114 

• 

C4211 

R  JP 

SOVERFLOW 

04324 

65000 

04046 

• 

C4212 

ENT 

Q*A 

04325 

10070 

00000 

HAVE  SIN3M  G*26 

C4213 

MUL 

W(CVAL) 

04326 

22030 

03710 

G-29 

C4214 

LSH 

AO*  1 

04327 

07000 

00001 

3E3/8 ( S I N3M )  G*2 5  MAKE  IT  i 

C4215 

R  JP 

ROUNO 

04330 

65000 

04060 

C4216 

STR 

A*W ( CVAL ) 

04331 

15030 

03710 

G*26 

C4217 

ENT 

Q*W( BVAL ) 

04332 

10030 

03707 

CVAL+BVAL 

C4220 

R  JP 

SAOO 

04333 

65000 

04073 

C4221 

R  JP 

SOVERFLOW 

04334 

65000 

04046 

C4222 

ENT 

Q*W( AVAL) 

04335 

10030 

03706 

AVAL+BVAL+CVAL 

C4223 

R  JP 

SAOD 

04336 

65000 

04073 

C4224 

R  JP 

SOVERFLOW 

04337 

65000 

04046 

C4225 

ENT 

Q*W ( MM  ) 

04340 

10030 

0362  6 

M+A+B+C  G*2  6 

C4226 

R  JP 

SAOD 

04341 

65000 

04073 

C4227 

R  JP 

SOVERFLOW 

04342 

65000 

04046 

C4230 

STR 

A*W ( EGVAL ) 

04343 

15030 

03643 

G*26 

C4231 

C4232 

JP  ECALC 

COMMENT  GUESS 

04344 

61000 

04410 

REAOY  TO  CALC  ACTUAL  E 

VAL  OF  E  (E=2E1LAST-E2LAST) 

C4233  PPED2 

ENT 

Q*X77777 

04345 

10040 

77777 

C4234 

ENT 

A*W(E1LAST)*AP0S 

04346 

11630 

03662 

C4235 

JP 

PRED222 

04347 

61000 

04365 

C4236 

COM 

MASK*W(TWPI26)*AP0S 

04350 

43630 

04025 

C4237 

JP 

PRE021 

04351 

61000 

04402 

CONTINUE 

C4240 

ENT 

Q  *W ( TWP 1 26 ) 

04352 

10030 

04025 

12E1LAST)  GRTR  2PI  G*26 

C4241 

ENT 

A  *W ( E 1L AST ) 

04353 

11030 

03662 

C4242 

R  JP 

SSUB 

04354 

65000 

04114 

APOS-  SUB  2PI 

C4243 

R  JP 

SOVERFLOW 

04355 

65000 

04046 

C4244 

STR 

A*W(E1LAST) 

04356 

15030 

03662 

E1LAST*E1LAST*2PI  OR  -2PI 

C4245 

ENT 

Q*W ( T  WP 1 26 ) 

04357 

10030 

0402  5 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKlN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C4246 

ENT 

A*  W ( E2LAST ) 

04360 

11030 

03663 

C4247 

RJP 

SSUB 

04361 

65000 

04114 

APOS  SUB  2PI 

C4250 

RJP 

SOVERFLOW 

04362 

65000 

04046 

C4251 

STR 

A*W( E2LAST) 

04363 

15030 

03663 

E2LAST-E2LAST+2PI  OR  -2PI 

C4252 

JP 

PRED21 

04364 

61000 

044C2 

C4253  PRED222 

CP 

A  • 

04365 

15040 

00000 

C4254 

COM 

MASK*W(TWPI26)*AP0S 

04366 

43630 

0402  5 

C4255 

JP 

PRED21 

04367 

61000 

044C2 

C4256 

ENT 

C*W(TWPI26J 

04370 

10030 

0402  5 

C4257 

ENT 

A*W ( E1LAST ) 

04371 

11030 

03662 

C4260 

RJP 

SADD 

04372 

65000 

04  073 

C4261 

RJP 

SOVERFLOW 

04373 

65000 

04046 

• 

C4262 

STR 

A  * W ( E 1LAST ) 

04374 

15030 

03662 

• 

C4263 

ENT 

A • W ( TWP I 26 ) 

04375 

11030 

04025 

• 

C4264 

ENT 

Q*W ( E2LAST ) 

04376 

10030 

03663 

C4265 

RJP 

SACO 

04377 

65000 

04073 

C4266 

RJP 

SOVERFLOW 

04400 

65000 

04  046 

C4267 

STR 

A*W ( E2LAST ) 

04401 

15030 

03663 

C4270  PPED21 

ENT 

A  «W ( E 1L AST  ) 

04402 

11030 

03662 

G  =  26 

C4271 

LSH 

A  •  1 

04403 

06000 

00001 

MUL  BY  2  G=  26 

C4272 

ENT 

Q*W( E2L AST ) 

04404 

10030 

03663 

C4273 

RJP 

SSUB 

04405 

65000 

04114 

C4274 

RJP 

SOVERFLOW 

04406 

65000 

04  046 

C4275 

STR 

A*W( EGVAL ) 

04407 

15030 

0364  3 

C4276 

COMMENT  CALC 

ACTUAL  VALUE  OF  E  ( E*M  +  ES INE ) 

C4277 

COMMENT  1 

X  E  =  MME-E3/8)SINM*1/2CE2)SIN 

M 

C43C0 

COMMENT 

n 

X  +3E3/8SIN3M 

C4301  ECALC 

ENT 

B6«  1 

04410 

12600 

00001 

C4302 

ENT 

A  * W { EGVAL ) 

04411 

11030 

03643 

C43C3 

ENT 

C  •  26D 

04412 

10000 

00032 

GET  ACTUAL  E 

C4304 

RJP 

SINX 

04413 

65000 

05357 

C4305 

ENT 

Q«  A 

04414 

10070 

oooco 

Q  HAS  ESIN  G*28 

C43C6 

MUL 

W(  EE) 

04415 

22030 

03627 

E  G*29 

C4307 

RSH 

AQ«  1 

04416 

03000 

00001 

C4310 

RJP 

ROUND 

04417 

65000 

04  060 

E(ESIN) 

C4311 

ENT 

Q*  A 

04420 

10070 

00000 

C4312 

ENT 

A*W ( EGVAL ) 

04421 

11030 

03643 

C4313 

RJP 

SSUB 

04422 

65000 

04114 

G  26 

C4314 

RJP 

SOVERFLOW 

04423 

65000 

04046 

C4315 

ENT 

C*  A 

04424 

10070 

00000 

CALCULATE  DELEN, M-MN/ 1-ECOSEN 

C4316 

ENT 

A • W ( MM  ) 

04425 

11030 

03  626 

G  26 

• 

C4317 

RJP 

SSUB 

04426 

65000 

04114 

• 

C4320 

RJP 

SOVERFLOW 

04427 

65000 

04046 

• 

C4321 

STR 

A  *W ( S I NUM ) 

04430 

15030 

03704 

G  26 

C4322 

ENT 

A  *W ( EGVAL ) 

04431 

11030 

03643 

C4323 

ENT 

C*  26D 

04432 

10000 

00032 

C4324 

RJP 

cosx 

04433 

65000 

05345 

COSE  G  28 

• 

C4325 

ENT 

0*  A 

04434 

10070 

00000 

• 

C4326 

MUL 

W(  EE) 

04435 

22030 

03627 

G  57 

• 

C4327 

RJP 

ROUND 

04436 

65000 

04  060 

G  27 

• 

C4330 

ENT 

Q*  A 

04437 

10070 

00000 

.  SPURT  OUTPUT  NO.  2lO 

SATEL  MCQUlLKIN«7/l/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C4331 

ENT 

A*W  ( WONE28 ) 

04440 

11030 

03717 

C4332 

RSH 

A*1 

04441 

02000 

00001 

C4333 

RJP 

S  SUB 

04442 

65000 

04114 

G  27 

C4334 

RJP 

SOVERFLOW 

04443 

65000 

04046 

C4335 

STR 

A*W  (  S INDEN ) 

04444 

15030 

03703 

G  27 

C4336 

CL 

Q* 

04445 

10000 

00000 

C4337 

ENT 

A*W  (  S  INUM ) 

04446 

11030 

03704 

G  26 

C4340 

RSH 

AQ*  3 

04447 

03000 

00003 

G  53 

C4341 

CIV 

W(SINDEN) *NOOF 

04450 

23230 

03703 

C4342 

RJP 

SOVERFLOW 

04451 

65000 

04046 

• 

C4343 

LSH 

A*  1 

04452 

06000 

00001 

• 

C4344 

COM 

A«W(SINDEN) «YMORE 

04453 

04730 

03703 

• 

C4345 

AOD 

Q*  1 

04454 

26000 

00001 

C4346 

STR 

Q»  A 

04455 

14040 

OOOCO 

G  26 

• 

C4347 

STR 

A»W  ( EDELT ) 

04456 

15030 

0404  5 

• 

C4350 

ADO 

A*0*  APOS 

04457 

20600 

00000 

CHECK  DELTA  E  NEAR  0 

• 

C4351 

CP 

A« 

04460 

15040 

00000 

• 

C4352 

COM 

A*W<DECON)*YMORE 

04461 

04730 

04  026 

• 

C4353 

JP 

ECALRTN 

04462 

61000 

04472 

NO  TRY  AGAIN 

C4354  E CALI 

ENT 

A  •  B6 

04463 

11006 

OOOCO 

C4355 

STR 

A»W( ERODE) 

04464 

15030 

03723 

C4356 

COMMENT  EKOOE 

HAS  NO  OF  ITERATIONS 

C4357 

COMMENT  X 

AFTER  EACH  TIME  THROUGH 

C4360 

PUT 

W(E1LAST)*W(E2LAST) 

04465 

10030 

03662 

YES  E2LAST*E1LAST 

04466 

14030 

03663 

C436I 

PUT 

W( EGVAL )  *W  ( E1LAST) 

04467 

10030 

03643 

04470 

14030 

03662 

C4362 

EXIT 

04471 

61010 

0422  5 

C4363  ECALRTN 

ENT 

A  *W ( EGVAL ) 

04472 

11030 

03643 

G  26 

C4364 

ENT 

Q*W( EDELT ) 

04473 

10030 

04  045 

G  26 

C4365 

RJP 

SADD 

04474 

65000 

04073 

C4366 

RJP 

SOVERFLOW 

04475 

65000 

04046 

C4367 

STR 

A« W ( EGVAL ) 

04476 

15030 

03643 

G  26 

C4370 

BSK 

B6* 10D 

04477 

71600 

00012 

AFTER  10  ITERATIONS  TAKE  LATES 

T  E  VALUE 

C4371 

JP 

ECALC+1 

04500 

61000 

04411 

C4372 

JP 

ecali 

04501 

61000 

0446  3 

C4373 

COMMENT  END 

OF  E  CALCULATIONS 

C4374  SINVV 

ENTRY 

04502 

61000 

00000 

C4375 

COMMENT  CALC 

SINV=SQRT( 1-E2 ) / ( 1— ECOSE )  SIN 

c 

C4376 

ENT 

A* W ( WONE28 ) 

04503 

11030 

03717 

C 

C4377 

ENT 

Q«W(EE2) 

04504 

10030 

03623 

E 1  El  G*29 

C44C0 

RSH 

Q»  I 

04  505 

01000 

00001 

G*28 

C440L 

RJP 

SSUB 

04506 

65000 

04114 

C44C2 

RJP 

SOVERFLOW 

04507 

65000 

04046 

C44C3 

RSH 

AQ  *2 

04510 

0300U 

00002 

G=26 

C44C4 

RJP 

ROUND 

04511 

65000 

0406  0 

C44C5 

RJP 

SORT 

04512 

65000 

05504 

A  HAS  ARGt  G*28 

C44C6 

RJP 

SERROR 

04513 

65000 

04  05  3 

C4407 

LSH 

A  •  l 

04514 

06000 

00001 

Ga  28 

C44I0 

STR 

A* W ( SI NUM ) 

04515 

15030 

037C4 

G=28  SQRT ( 1-E2 ) 

C4411 

ENT 

A*W( E1LAST) 

04516 

11030 

03662 

LAST  CALC  EVALVE  G*26 

CARDS 


LI  ID  LABEL 


TA 


\D 

00 


C4412 
C4413 
C4414 
C4415 
C4416 
C4417 
C4420 
C4421 
C4422 
C4423 
C4424 
C4425 
C4426 
C4427 
C4430 
C4431 
C4432 
C4433 
C4434 
C4435 
C4436 
C4437 
C444  0 
C4441 
C4442 
C4443 
C4444 
C4445 
C4446 
C4447 
C4450 
C4451 
C4452 
C4453 
C4454 
C4455 
C4456 
C4457 
C4460 
C446I 
C4462 
C4463 
C4464 
C4465 
C4466 
C4467 
C4470 
C4471 
C4472 
C4473 
C4474 
C4475 
C4476 


SINV1C 


SINV11 


SINV1 


S  INV1X 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUlLKIN*7/l/65 


STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

ENT 

Q*  26D 

04517 

10000 

00032 

RJP 

SINX 

04520 

65000 

05357 

STR 

A*W ( EVALS  IN ) 

04521 

15030 

03625 

G®  28 

ENT 

A«W  (  E 1LAST ) 

04522 

11030 

03662 

ENT 

0*260 

04523 

10000 

00032 

RJP 

COSX 

04524 

65000 

05345 

STR 

A*W( EV ALCOS ) 

04525 

15030 

03624 

A  HAS  COSE  G*28 

ENT 

0*  A 

04526 

10070 

00000 

PREPARE  TO  MUL 

HUL 

W  (  EE ) 

04527 

22030 

03627 

LCOSE  G®  29 

LSH 

AO  *  I 

04530 

07000 

00001 

G® 27  MAKE  IT  28 

RJP 

ROUND 

04531 

65000 

04  060 

ENT 

Q*  A 

04532 

10070 

00000 

ECOSE  G*28  TO  Q 

ENT 

A  *  W  ( WONE  2  8 ) 

04533 

11030 

03717 

U  1  G*28  TO  A. SUB 

RJP 

SSUB 

04534 

65000 

04114 

RJP 

SOVERFLOW 

04535 

65000 

04  046 

STR 

A *W  (  S I NDEN ) 

04536 

15030 

03703 

1-ECOSE  G®28 

ENT 

Q*W( SINUM ) 

04537 

10030 

03704 

MUL 

W( EVALSIN) 

04540 

22030 

03625 

G*28 

LSH 

AQ*2 

04541 

07000 

00002 

G*26  MAKE  IT  28 

RJP 

ROUND 

04542 

65000 

04060 

STR 

A  *W ( S  I NUM ) 

04543 

15030 

03704 

G  28 

ENT 

Q*X77777 

04544 

10040 

77777 

ADD 

A*0* APOS 

04545 

20600 

00000 

JP 

SINV10 

04546 

61000 

04554 

COM 

MASK*W( SINDEN )*ANOT 

04547 

43530 

03703 

JP 

SINV1 

04550 

61000 

04567 

YES  S I NV* 1 

COM 

MASK*W(SINDEN)*ANEG 

04551 

43730 

03703 

IS  DEN  LGR  NUM 

JP 

SINV1 

04552 

61000 

04567 

JP 

SINV11 

04553 

61000 

04562 

CP 

A* 

04554 

15040 

00000 

COM 

MASK*W(SINDEN)*ANOT 

04555 

43530 

03703 

JP 

SINV1 

04556 

61000 

04567 

COM 

MASK *W (SINDEN)* AN EG 

04557 

43730 

03703 

JP 

SINV1 

04560 

61000 

04567 

CP 

A* 

04561 

15040 

OOOCO 

CL 

0* 

04562 

10000 

00000 

RSH 

A*  2 

04563 

02000 

00002 

CIV 

VMS  INDEN)  *NOOF 

04564 

23230 

03703 

RJP 

SOVERFLOW 

04565 

65000 

04046 

JP 

S INV 1X+2 

04566 

61000 

04577 

ENT 

Q*W ( W0NE28 ) 

04567 

10030 

03717 

SIN  V  1  CHECK  FOR  SIGN 

ENT 

A*W(SINUM)*APOS 

04570 

11630 

03704 

JP 

S  INV1X 

04571 

61000 

04575 

ENT 

A*W(SINDEN) * A  POS 

04572 

11630 

03703 

CP 

0* 

04573 

14000 

00000 

JP 

$♦3 

04574 

61000 

04577 

ENT 

A*W(SINDEN)*ANEG 

04575 

11730 

03703 

CP 

Q* 

04576 

14000 

00000 

STR 

Q*W( VVSIN) 

04577 

14030 

03673 

COMMENT  CALCULATE 

COSV*(COSE-E)/( 1-ECOSE) 

ENT 

A  *W ( E  E ) 

04600 

11030 

03627 

MAKE  E  G=28  FOR  SUB 

RSH 

AQ  *  1 

04601 

03000 

00001 

RJP 

ROUND 

04602 

65000 

04  060 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKIN*7/l/65 


\Q 

\Q 


CARDS 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C4477 

ENT 

Q*  A 

04603 

10070 

00000 

C45C0 

ENT 

A*W ( EVALCOS ) 

04604 

11030 

03624 

C4501 

RJP 

SSUB 

04605 

65000 

04114 

C4502 

RJP 

SOVERFLOW 

04606 

65000 

04046 

C4503 

STR 

A*W ( S I NUM ) 

04607 

15030 

03704 

C4504 

ENT 

Q*X  77777 

04610 

10040 

77777 

C45C5 

ADD 

A  *0* APOS 

04611 

20600 

00000 

C45C6 

JP 

C0SV10 

04612 

61000 

04620 

C4507 

COM 

MASK*W(SINDEN)*ANOT 

04613 

43530 

03703 

C4510 

JP 

C0SV1 

04614 

61000 

0463  3 

DEN-NUM  C0SV*1 

C4511 

COM 

MASK*W(SINDEN)»ANEG 

04615 

43730 

03703 

IS  DEN  LGR  NUM 

C4512 

JP 

C0SV1 

04616 

61000 

04633 

C4513 

JP 

C0SV11 

04617 

61000 

0462  6 

C4514 

CCSV1C 

CP 

A* 

04620 

15040 

00000 

C4515 

COM 

MASK*W( SINDEN)*ANOT 

04621 

43530 

03  703 

C4516 

JP 

C0SV1 

04622 

61000 

04633 

C4517 

COM 

MASK*wtSINDEN  >*ANEG 

04623 

43730 

03703 

C4520 

JP 

C0SV1 

04624 

61000 

04633 

C4521 

CP 

A* 

04625 

15040 

00000 

C4522 

CCSV11 

CL 

Q* 

04626 

10000 

00000 

C4523 

RSH 

A*2 

04627 

02000 

00002 

G  26 

C4524 

CIV 

W ( S  INDEN ) *NOOF 

04630 

23230 

03703 

C4525 

RJP 

SOVERFLOW 

04631 

65000 

04046 

C4526 

JP 

COSV IX ♦ 2 

04632 

61000 

04643 

C4527 

CCSV1 

ENT 

Q*W  ( W ONE 28 ) 

04633 

10030 

03717 

COSV  1  CHECK  FOR  SIGN 

C4530 

ENT 

A*W(SINUM)*APOS 

04634 

11630 

03704 

C4531 

JP 

C0SV1X 

04635 

61000 

04641 

C4532 

ENT 

A*W(SINDEN)*APOS 

04636 

11630 

03703 

C4533 

CP 

Q* 

04637 

14000 

00000 

C4534 

JP 

$  3 

04640 

61000 

04643 

C4535 

CCSVIX 

ENT 

A*W(SINDEN)*ANEG 

04641 

11730 

03703 

C4536 

CP 

Q* 

04642 

14000 

00000 

C4537 

STR 

Q  *W ( VVCOS ) 

04643 

14030 

03674 

C4540 

EXIT 

04644 

61010 

04502 

C454I 

CEROCT 

ENTRY 

04645 

61000 

00000 

C4542 

COMMENT  THE 

A-REG  CONTAINS  THE  ARG  AND  THE 

Q-REG  THE  BIN  PT 

C4543 

COMMENT  THE 

ANS  WILL  BE  LEFR  IN  THE  A-REG 

WITH  THE  ORIG  BIN  PT 

C4544 

STR 

B5*L ( CBXT ) 

04646 

16510 

04772 

SAVE  I R-S 

C4545 

STR 

B6*L ( C  BXT+ 1 ) 

04647 

16610 

04773 

C4546 

CL 

B5» 

04650 

12500 

00000 

C4547 

ENT 

86*12000 

04651 

12600 

12000 

RESTORE  DRANCH  PTS 

C4550 

STR 

B6*U( CBFIX1 ) 

04652 

16620 

04741 

X 

C4551 

ENT 

66*21007 

04653 

12600 

2 1  CO  7 

X 

C4552 

STR 

B6*U(CBFIX12*1) 

04654 

16620 

04750 

X 

C4553 

STR 

Q*W ( GT  EM ) 

04655 

14030 

05003 

SAVE  BIN  PT 

C4554 

CP 

Q* 

04656 

14000 

OOOCO 

-BIN  PT 

C4555 

AOD 

Q»29D 

04657 

26000 

0003  5 

29-BIN  PT 

C4556 

STR 

Q*W(CBXO)*ANEG 

04660 

14730 

04776 

STORE  TEMPORARILY 

C4557 

JP 

$♦3 

04661 

61000 

04664 

ZRG  POS 

C4560 

ENT 

B  5*  1 

04662 

12500 

00001 

ARG  NEG  B5  IS  SWITCH 

C4561 

CP 

A* 

04663 

15040 

OOOCO 

CONTINUE  AS  FOR  +ARG 

.  SPURT  OUTPUT  NO.  210 
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C4562 

JP 

CBXT * AZERO 

04664 

60400 

04772 

C4563 

ENT 

B7*W ( CBXO ) 

04665 

12730 

04776 

29-BIN  PT  IN  B7 

C4564 

CL 

Q* 

04666 

10000 

00000 

C4565  CeAGAIN 

LSH 

AQ*  1* APOS 

04667 

07600 

00001 

NORMALIZE 

• 

C4566 

JP 

S  +  3 

04670 

61000 

04673 

FINISHED 

• 

C4567 

ENT 

B7*B7- 1 

04671 

12707 

77776 

KEEP  TRACK  OF  REDUCTION 

• 

C4570 

JP 

CBAGAIN 

04672 

61000 

04667 

• 

C4571 

LSH 

AQ*29D 

04673 

07000 

00035 

RESTORE  SIGN  TO  NORAMALIZED  WO 
RD 

1/3  X  ARG  G=29XG*29 

• 

C4572 

MUL 

W(WONETH) 

04674 

22030 

05001 

• 

C4573 

STR 

A*W( CBY ) 

04675 

15030 

04775 

GAMMA  28 

C4574 

ENT 

Q*W 1 CBCON ) 

04676 

10030 

05002 

C4575 

ENT 

B6  *4 

046  77 

12600 

00004 

NO  TIMES  TO  ITERATE 

C4576  CeSTART 

STR 

Q*W  ( CBXO ) 

04700 

14030 

04776 

C4577 

MUL 

W(CBXO) 

04701 

22030 

04776 

XX  GAMM 

A  58 

C46C0 

LSH 

AQ*  1 

04702 

07000 

00001 

MAKE  G*29  FOR  X2 

C4601 

STR 

A*W ( CBX02 ) 

04703 

15030 

05000 

GAMMA  29 

• 

C4602 

ENT 

Q*W  1 CBXO ) 

04704 

10030 

04776 

X  GAMMA 

29 

2/3  G-27XG-29 

• 

C4603 

MUL 

W(WONETH) 

04705 

22030 

05001 

• 

C4604 

LSH 

AQ*  1 

04706 

07000 

00001 

2/3  X  G=27XG  MAKE  IT  G*28 

C46C5 

STR 

A *W ( CB 2X0  ) 

04707 

15030 

04777 

GAMMA  28 

C46C6 

CL 

Q* 

04710 

10000 

00000 

• 

C4607 

ENT 

A*W ( CBY ) 

04711 

11030 

04775 

G*28 

• 

C4610 

DIV 

W ( CBX02 ) *NOOF 

04712 

23230 

05000 

• 

C4611 

R  JP 

SOVERFLOW 

04713 

65000 

04  046 

C4612 

ENT 

A*W ( CB2X0 ) 

04714 

11030 

04777 

G*28 

C4613 

LSH 

A*  1 

04715 

06000 

00001 

MAKE  G*29 

C4614 

STR 

A  +  Q*W ( CBXO ) 

04716 

32030 

04776 

NEW  XO  G=»29 

C4615 

ENT 

Q*  A 

04717 

10070 

00000 

C4616 

B  JP 

B6*CBSTART ♦ 1 

04720 

72600 

04701 

FINISHED 

C4617 

ENT 

A*XB7* ANEG 

04721 

11747 

00000 

YES  RESTORE  VALUE 

C4620 

JP 

CBRESTORE-1 

04722 

61000 

04730 

CORRECTION  FACTOR  ♦  ANS  TO  BE 
MULT 

C4621 

ENT 

Q  *6  1000 

04723 

10000 

61000 

FACTON-ANS  TO  BE  DIVIDED 

C4622 

STR 

Q*U( CBF IX 1 ) 

04724 

14020 

04741 

SET  UP  JUMP  AT  SWITCH  PT 

C4623 

ENT 

Q*20007 

04725 

10000 

20007 

C4624 

STR 

Q*UI CBF IX 12  + 1 ) 

04726 

14020 

04750 

XOWRK  AREA 

• 

C4625 

CP 

A* 

04727 

15040 

00000 

A  HAS  CORRECTION  FACTOR 

• 

C4626 

CL 

B7* 

04730 

12700 

00000 

• 

C4627  CERESTORE 

COM 

A*3*YLESS 

04731 

04600 

00003 

• 

C4630 

JP 

CBFIX 

04732 

61000 

04736 

XMUST  BE  RAISED 

C4631 

SUB 

A*  3 

04733 

21000 

00003 

X 

• 

C4632 

ENT 

B7  *  1-f  B7 

04734 

12707 

00001 

X 

• 

C4633 

JP 

CBRESTORE 

04735 

61000 

04731 

X 

• 

C4634  CBFIX 

JP 

CBF IX 1*AN0T 

04736 

60500 

04741 

MUST  ANS  BE  MULT  OR  DIV 

• 

C4635 

ENT 

A*  29D 

04737 

11000 

00035 

NO  PUT  PRESENT  BIN  PT  IN  A 

• 

C4636 

JP 

CBF IX 1 2* 1 

04740 

61000 

04750 

• 

C4637  CEFIX1 

ENT 

BO*CBF 1X3 

04741 

12000 

05006 

SWITICH  CONTAINS  JP  IF  ANS  TO 
BE  DIV 

• 

C4640 

COM 

A*2*YL  ESS 

04742 

04600 

00002 

• 

C4641 

MUL 

W ( CB 1 ) *SK  IP 

04743 

22130 

05004 

ANS  IN  Q  MUL  BY  2  TO  1/3  G*28 

TOT 
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C4642 

MUL 

W ( CB2 ) 

04744 

22030 

05005 

MUL  BY  2  TO  2/3  G*28 

C4643 

LSH 

AO*  1 

04745 

07000 

00001 

MAKE  G*28 

C4644 

STR 

A*W ( CBXO ) 

04746 

15030 

04776 

C4645  CeFIX12 

ENT 

A*  28D 

04747 

11000 

00034 

BIN  PT  OF  ANS 

C4646 

SUB 

A*B7 

04750 

21007 

00000 

BIN  PT-PROPER 

C4647 

SUB 

A*W ( GTEM ) 

04751 

21030 

05003 

SUB  ORIG  BIN  PT 

C4650 

ENT 

B7*A 

04752 

12770 

00000 

NO  OF  SHIFTS  NEEDED 

C4651 

JP 

CBSMAL*ANEG 

04753 

60700 

04761 

SHIFT  LEFT  OR  RIGHT 

C4652 

ENT 

A* W ( CBXO ) 

04754 

11030 

04776 

RIGHT 

C4653 

CL 

Q* 

04755 

10000 

00000 

C4654 

RSH 

AQ*B7*QP0S 

04756 

03207 

00000 

ROUND 

C4655 

ADD 

A*  1 

04757 

20000 

00001 

YES 

C4656 

JP 

CBFIX2 

04760 

61000 

04770 

NO 

C465T  CeSMAL 

CP 

A* 

04761 

15040 

00000 

WANT  TO  LEFT  SHIFT 

C4660 

ENT 

B7*A 

04762 

12770 

00000 

C4661 

ENT 

A*W( CBXO ) 

04763 

11030 

04776 

X 

C4662 

CL 

0* 

04764 

10000 

00000 

X 

C4663 

LSH 

A0*B7 

04765 

07007 

00000 

C4664 

JP 

$♦ 1*AP0S 

04766 

60600 

04767 

C4665 

CO 

04767 

00000 

00000 

VVERFLOW 

C4666  CEFIX2 

BSK 

B5  *0 

04770 

71500 

00000 

C4667 

CP 

A* 

04771 

15040 

00000 

YES  COMPLEMENT  ANS 

C4670  CBXT 

ENT 

B  5*0 

04772 

12500 

00000 

RESTORE  IR-S 

C4671 

ENT 

B6*0 

04773 

12600 

00000 

C4672 

EXIT 

04774 

61010 

04645 

C4673  CeY 

C 

0 

04775 

00000 

00000 

C4674  CBXO 

0 

0 

04776 

00000 

00000 

C4675  Ce2XC 

0 

0 

04777 

00000 

oooco 

C4676  CEX02 

0 

0 

05000 

00000 

00000 

C4677  WCNETH 

12525  25252 

05001 

12525 

25252 

C4700  CECON 

37777  77777 

05002 

37777 

77777 

G*29 

C4701  GTEM 

C 

0 

05003 

00000 

00000 

C4702  CB1 

24121  21540 

05004 

24121 

21540 

C4703  CE2 

31313  77220 

05005 

31313 

77220 

C4704  CEFIX3 

SUB 

A*  1 

05006 

21000 

OOOC1 

BRANCH  FOR  RESTORE  VALVE 

C4705 

ENT 

B6*  A 

05007 

12670 

OOOCO 

C4706 

CL 

0* 

05010 

10000 

00000 

C4707 

ENT 

A  *W ( CBXO ) 

05011 

11030 

04776 

C4710 

RSH 

AQ*  3 

05012 

03000 

00003 

GAMMA  56 

C4711 

CIV 

WICB1+B6) *NOOF 

05013 

23236 

05004 

GAMMA  27 

C4712 

R  JP 

SOVERFLOW 

05014 

65000 

04  046 

C4713 

RSH 

A*  1 

05015 

02000 

00001 

ROUND 

C4714 

COM 

A«W(CBl>B6)*YLESS 

05016 

04636 

05  004 

C4715 

ADD 

0*1 

05017 

26000 

00001 

YES 

C4716 

STR 

0*W(CBX0) 

05020 

14030 

04776 

C4717 

JP 

CBFIX12 

05021 

61000 

04747 

C4720 

JP 

CBFIX2+1 

05022 

61000 

04771 

C4721 

JP 

CBF 1X12*1 

05023 

61000 

04750 

C4722  E  PR  PR  T 

ENTRY 

05024 

61000 

00000 

C4723 

SEL 

SET*60 

05025 

50000 

00060 

C4724 

STR 

A*W( MESSAGE  1 ) 

05026 

15030 

05057 

C4725 

ENT 

Q*L(ERRINST) 

05027 

10010 

05065 

C4726 

LSH 

Q*  15D 

05030 

05000 

00017 

SATEL 


SPURT  OUTPUT  NO.  210 
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C4727 

CL  A# 

05031 

11000 

00000 

C4730 

LSH  AQ*3 

05032 

07000 

00003 

C4731 

LSH  A*  3 

05033 

06000 

00003 

C4732 

LSH  AQ  *  3 

05034 

07000 

00003 

C4733 

LSH  A*  3 

05035 

06000 

00003 

C4734 

LSH  AQ*3 

05036 

07000 

00003 

C4735 

LSH  A«3 

05037 

06000 

00003 

C4736 

LSH  AQ*3 

05040 

07000 

00003 

C4737 

LSH  A*3 

05041 

06000 

00003 

C4740 

LSH  AQ*3 

05042 

07000 

00003 

C4741 

SEL  SET*W I M ASK ) 

05043 

50030 

05051 

C4742 

STR  A*W( MESSAGE ) 

05044 

15030 

05063 

C4743 

RJP  U(  INTERCOM) 

05045 

65020 

63426 

C4744 

U-TAG  THING 

05046 

05052 

00000 

C4745 

ENT  A#0 

05047 

11000 

00000 

C4746 

JP  L ( SATWORK ) 

05050 

61010 

0604  0 

C4747  MASK 

60606  06060 

05051 

60606 

0606  0 

C4750  THING 

FD  1*  A 

05052 

06050 

50505 

C4751 

77777  LOC 

05053 

77777 

05054 

C4752  LCC 

FD  3*ERR0R  TYPE 

05054 

12272 

72427 

05055 

05313 

62512 

05056 

05050 

50505 

C4753  M ESS AGE  1 

0  0 

05057 

00000 

00000 

C4754 

FD  3« AT  LOCATION 

05060 

06310 

52124 

05061 

10063 

11624 

05062 

23050 

50505 

C4755  MESSAGE 

0  0 

05063 

00000 

00000 

C4756 

77777  77777 

05064 

77777 

77777 

C4757  EPRINST 

0  0 

05065 

00000 

00000 

C4760  B  L ASTCCNV 

ENTRY 

05066 

61000 

00000 

BLASTOFF  CONVERTED  TO  PARTS  OF 

C4761 

RJP  FF 

05067 

65000 

05323 

CONVERT  CELTIME  TO  SEC 
24 

X 

GAMMA* 

C4762 

28D  CELTIME 

05070 

00034 

63133 

C4763 

U-TAG  CELT  I MEX*  10 

05071 

03774 

00010 

X  CELTIME  IN  FLTPT 

C4764 

RJP  FF 

05072 

65000 

05323 

X 

C4765 

U-TAG  CELT IMEX*FLT864 

05073 

03774 

04006 

X 

C4766 

U-TAG  T  INIT *02 

05074 

03732 

00002 

C4767 

EXIT 

05075 

61010 

05066 

C4770  INCONVER 

ENTRY 

05076 

61000 

00000 

CONVERT  INPUT  TO  PROPER 

UNITS 

C4771 

STR  B  1  *L 1  INCONVERX) 

05077 

16110 

05222 

M  REV/DAY  TO  RADS/SEC 

C4772 

STR  B2*L( INCONVERX+1) 

05100 

16210 

05223 

C4773 

STR  B3*L  I  I  NCONVERX-f  2  ) 

05101 

16310 

05224 

I  DEG/OAY  TO  RADS/SEC 

C4774 

STR  B4*L(  INCONVERX+3) 

05102 

16410 

05225 

W  X  X 

C4775 

STR  B7*L( INCONVERX+4) 

05103 

16710 

05226 

RAMX  X 

C4776 

ENT  A*W(MZERO) 

05104 

11030 

00564 

MOD  THE  INTEGER  PART  OF 

M  TO 

C4777 

SUB  A  *40000*AN0T 

05105 

21500 

40000 

ZERO 

C5C0G 

JP  INC3 

05106 

61000 

05125 

C5CC1 

CP  A* 

05107 

15040 

00000 

C5CC2 

ADD  A*  28D 

05110 

20000 

00034 

C50G3 

STR  A*L I  INC 1  ) 

05111 

15010 

05114 

C5CC4 

STR  A*LI INC2 ) 

05112 

15010 

05116 

.  SPURT  OUTPUT  NO.  210 
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C5C05 

ENT 

A*W  (  MZ  ERO+- 1 ) 

05113 

11030 

00565 

C50C6  INC1 

RSH 

AQ  *0 

05114 

03000 

00000 

SHIFT  OFF  FRACTIONAL  PART 

C5C07 

CL 

Q* 

05115 

10000 

00000 

AND  SAVE  INTEGER  PORTION 

C5C10  INC2 

LSH 

AQ*0 

05116 

07000 

00000 

C5011 

STR 

A*W  (  MT  EMP7+- 1 ) 

05117 

15030 

03763 

C5012 

ENT 

Q  *W  ( MZ  ERO ) 

05120 

10030 

00564 

C5C13 

STR 

Q*W(MTEMP7) 

05121 

14030 

03762 

C5014 

RJP 

FF 

05122 

65000 

05323 

SUBTRACT  INTEGER  PART  FROM 

C5015 

U-TAG  MZER0*MTEMP7 

05123 

00564 

03762 

ORIGINAL  NUMBER  LEAVING 

C5016 

U-TAG  MZ  ER0*0 1 

05124 

00564 

00001 

ONLY  FRACTIONAL  PART 

C5C17  I NC3 

ENT 

B  1  *0 

05125 

12100 

00000 

C5C20 

ENT 

B2*0 

05126 

12200 

OOOCO 

WHICH  PARAMETER  IN  GROUP 

C5  021 

ENT 

B  3*0 

05127 

12300 

00000 

WHICH  PARA.  RELATIVE  TO  MZERO 

C5C22 

ENT 

B4*4 

05130 

12400 

00004 

INDEX  PARA.  COUNTERS 

C5023 

CL 

A* 

05131 

11000 

00000 

• 

C5024 

STR 

A*W ( SECCNT ) 

05132 

15030 

05230 

• 

C5025  I NC0NVER1 

ENT 

A  *B  1 

05133 

11001 

OOOCO 

• 

C5026 

SUB 

A*60D* ANOT 

05134 

21500 

00074 

TEST  ALL  INPUT  CONVERTED 

C5027 

JP 

I NCONVERX 

05135 

61000 

05222 

C5030  INC0NVER2 

ENT 

A*B2  * AZ  ERO 

05136 

11402 

00000 

C5C31 

JP 

INC0NV21 

05137 

61000 

05142 

C5C32 

ENT 

83*B  1 

05140 

12301 

00000 

XYES 

C5033 

JP 

I NC0NVER4 

05141 

61000 

05162 

C5034  INC0NV21 

ENT 

A*B  1 

05142 

11001 

00000 

C5C35 

ADD 

A*  B2 

05143 

20002 

00000 

C5036 

ENT 

B3*A 

05144 

12370 

00000 

C5C37  INC0NVER3 

ENT 

B7*MZER0+B3 

05145 

12703 

00564 

C5040 

STR 

B7*U( INCONVERA) 

05146 

16720 

05151 

C5041 

STR 

B7*U(  INCONVERA+l ) 

05147 

16720 

05152 

C5042 

RJP 

FF 

05150 

65000 

05323 

C5043  INCONVERA 

00 

FLT864 

05151 

00000 

04006 

C5  044 

00 

03 

05152 

00000 

00003 

C5045 

ENT 

A*W ( SECCNT ) 

05153 

11030 

05230 

COUNT  DIV.  BY  86400  SEC 

C5C46 

ADD 

A*  1 

05154 

20000 

00001 

C5C47 

STR 

A*W ( SECCNT ) 

05155 

15030 

05230 

• 

C5050 

ENT 

A*B2 

05156 

11002 

00000 

• 

C5051 

RSH 

A*  1 

05157 

02000 

00001 

• 

C5C52 

SUB 

A*W(SECCNT)*AZERO 

05160 

21430 

05230 

C5053 

JP 

INC0NVER3 

05161 

61000 

05145 

C5054  INC0NVER4 

ENT 

A*B 1 * AZ  ERO 

05162 

11401 

OOOOO 

TEST  FOR  M 

C5055 

JP 

INC0NVER5 

05163 

61000 

05167 

C5056 

ENT 

B7*BEL  2P I 

05164 

12700 

06010 

C5057 

STR 

B7*L( INCONVERB) 

05165 

16710 

05177 

C5C60 

JP 

INC0NVER6 

05166 

61000 

05173 

C5061  INC0NVER5 

SUB 

A* 120*  ANOT 

05167 

21500 

00014 

TEST  FOR  E 

C5C62 

JP 

INC0NVER7 

05170 

61000 

05201 

C5C63 

ENT 

87*CONVCON 

05171 

12700 

05231 

C5064 

STR 

B7*L( INCONVERB) 

05172 

16710 

05177 

C  5065  INC0NVER6 

ENT 

B7*MZ  ER0  +  B3 

05173 

12703 

00564 

C5066 

STR 

8  7  *U  ( INCONVERB) 

05174 

16720 

05177 

C5C67 

STR 

B7*U ( INCONVERB+1 ) 

05175 

16720 

05200 

C5070 

RJP 

FF 

05176 

65000 

05323 

CONVERT  TO  RADS 

.  SPURT  OUTPUT  NO.  210 
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C5C71 

I  fsCCNVERB 

CO 

00 

05177 

00000 

00000 

C5C72 

00 

02 

05200 

00000 

OOOC2 

C5C73 

I NC0NVER7 

ENT 

Q*W(RAMCNT+84) 

05201 

10034 

00772 

TEST  LAST  PARA.  OF  GROUP 

C5C74 

LSH 

Q*  1 

05202 

05000 

00001 

X 

C5C75 

SUB 

Q*2 

05203 

27000 

00002 

X 

C5C76 

ENT 

A*82 

05204 

11002 

OOOCO 

C5077 

SUB 

Q*A*QNOT 

05205 

27570 

00000 

C51C0 

JP 

I NC0NVER8 

05206 

61000 

05213 

YES 

C5101 

CL 

A  • 

05207 

11000 

00000 

NO  GET  NEXT  PARA.  IN  GROUP 

C5102 

STR 

A*W( SECCNT I 

05210 

15030 

05230 

C51C3 

ENT 

B2*B2+2 

05211 

12202 

00002 

C51C4 

JP 

INC0NVER2 

05212 

61000 

05136 

C51C5 

I NCCNVER8 

CL 

A* 

05213 

11000 

00000 

GET  NEW  GROUP 

• 

C51C6 

STR 

A*W ( SECCNT ) 

05214 

15030 

05230 

• 

C51C7 

B  JP 

B4 • 1 

05215 

72400 

05216 

• 

C5110 

ENT 

B2*0 

05216 

12200 

00000 

C5111 

ENT 

B  3  *0 

05217 

12300 

00000 

C5112 

ENT 

B1*B1+12D 

05220 

12101 

00014 

C  5  1 1 3 

JP 

I NCONVER 1 

05221 

61000 

05133 

C  5  1 14 

I  fsCGNVERX 

ENT 

Bl*0 

05222 

12100 

00000 

C5115 

ENT 

B2*0 

05223 

12200 

00000 

C5116 

ENT 

B  3  *0 

05224 

12300 

00000 

C5117 

ENT 

B4*0 

05225 

12400 

00000 

C5120 

ENT 

87*0 

05226 

12700 

00000 

C5121 

EXIT 

05227 

61010 

05076 

EXIT 

C5122 

SECCNT 

0 

0 

05230 

00000 

00000 

C5123 

CCNVCCN 

c 

37773 

05231 

00000 

37773 

C5124 

10737 

21521 

05232 

10737 

21521 

C5125 

COMMENT 

THIS  ROUTINE  IS  SET  UP  TO  CONV 

ERT 

C5126 

COMMENT 

XDAY, MONTH, AND  YEAR  TO  ITS  JUL 

IAN 

C5127 

COMMENT 

XEQUIVALENT 

C5130 

TCCNVERT 

ENTRY 

05233 

61000 

00000 

C5131 

ENT 

A*U( YEARMONTH) 

05234 

11020 

63147 

YEAR  TO  BE  CONSIDERED  GAMMA 

C5132 

SUB 

A • 196  2D 

05235 

21000 

03652 

0 

C5133 

ENT 

B7*A 

05236 

12770 

00000 

C5134 

ENT 

A*L ( DAY ) 

05237 

11010 

63150 

DAY  BUNG  CONSIDERED 

C5135 

ADD 

A*W< JULDAY+B7) 

05240 

20037 

05245 

JULIAN  EQU1L  OF  JAN  0, 

C5136 

LSH 

AQ*30D 

05241 

07000 

00036 

A  TO  Q 

C5137 

EXIT 

05242 

61010 

05233 

C5140 

DAYTEM 

G 

0 

05243 

00000 

00000 

C5141 

0 

0 

05244 

00000 

00000 

C5142 

JLLDAY 

00112 

31041 

05245 

00112 

31041 

JULIAN  EQUIV  OF  JAN  0  1962 

C5143 

00112 

31616 

05246 

00112 

31616 

1963 

C5144 

00112 

32373 

05247 

00112 

32373 

1964 

C  5 145 

00112 

33151 

05250 

00112 

33151 

1965 

C5146 

00112 

33726 

05251 

00112 

33726 

1966 

C5147 

00112 

34503 

05252 

00112 

34503 

1967 

C5150 

C0112 

35260 

05253 

00112 

35260 

1968 

• 

C5151 

00112 

36036 

05254 

00112 

36036 

1969 

• 

C5152 

00112 

36613 

05255 

00112 

36613 

1970 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN* 7/1/65 


O 

Cn 


CARDS 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

C5153 

EET 

RESERVE  10 

05256 

00000 

00000 

C5154 

MCALMOD 

ENTRY 

05266 

61000 

00000 

C5155 

ENT 

A  *  B5 

05267 

11005 

OCOCO 

C5156 

JP 

MC ALM0D1*  ANOT 

05270 

60500 

05313 

C5157 

MCALMCD2 

ENT 

A  *W ( MC ALSUM  ) 

05271 

11030 

03563 

C5160 

ENT 

C*W  ( MCALSUM* 1 ) 

05272 

10030 

03564 

C5161 

R  JP 

M0D2PI 

05273 

65000 

05722 

C5162 

STR 

A  •  W  ( MC ALSUM ) 

05274 

15030 

03563 

C5163 

STR 

Q*W ( MCALSUM+1 ) 

05275 

14030 

03564 

C  5164 

ENT 

A»W(MCALSUM*1 )*ANEG 

05276 

11730 

03564 

C  5 165 

JP 

MCALM0D22 

05277 

61000 

05303 

C5166 

R  JP 

FF 

05300 

65000 

05323 

C  5  167 

U-TAG  MCALSUM*BEL2PI 

05301 

03563 

06010 

C5170 

U-TAG  MCALSUM*00 

05302 

03563 

OOOCO 

C5171 

MCALM0D22 

STR 

87*L(MCALM0DB7) 

05303 

16710 

05311 

C5172 

MCALMCD3 

ENT 

B7*MM*B5 

05304 

12705 

03626 

C5173 

STR 

B7*U(MCALFLT4 ) 

05305 

16720 

05310 

C5174 

R  JP 

FF 

05306 

65000 

05323 

C5175 

26D 

MCALSUM 

05307 

00032 

03563 

C5176 

MCALFLT  4 

C 

11 

05310 

00000 

00011 

C5177 

MCALMCDB7 

ENT 

B7  *0 

05311 

12700 

00000 

C52C0 

EXIT 

05312 

61010 

05266 

C5201 

MCALM001 

COM 

A*2*YM0RE 

05313 

04700 

00002 

C5202 

JP 

MCALM0D2 

05314 

61000 

05271 

C52C3 

ENT 

B7*MM*B5 

05315 

12705 

03626 

C52C4 

STR 

B7*U( MCALFLT5 ) 

05316 

16720 

05321 

C5205 

R  JP 

FF 

05317 

65000 

05323 

C52C6 

29D 

MCALSUM 

05320 

00035 

03563 

C52C7 

MCALFLT5 

0 

11 

05321 

00000 

00011 

C5210 

JP 

MCALM0DB7 

05322 

61000 

05311 

C5211 

FF 

ENTRY 

05323 

61000 

00000 

C5212 

STR 

B4 *L ( FFX  ) 

05324 

16410 

05336 

C5213 

STR 

B5  *L  ( FFX* 1 ) 

05325 

16510 

05337 

C5214 

STR 

B6*L(FFX*2) 

05326 

16610 

05340 

C5215 

STR 

B7  *L ( FFX  +  3 ) 

05327 

16710 

05341 

C5216 

ENT 

B7  *L ( FF  ) 

05330 

12710 

05323 

C5217 

ENT 

B4*U (  B  7  ) 

05331 

12427 

OOOCO 

C5220 

ENT 

B5*L(B7) 

05332 

12517 

00000 

C5221 

ENT 

B6*U(  B7*  1 ) 

05333 

12627 

00001 

C5222 

ENT 

B7*L(B7*1) 

05334 

12717 

00001 

C5223 

R  JP 

FLTPT 

05335 

65000 

06155 

C5224 

FFX 

ENT 

B4*00 

05336 

12400 

00000 

C5225 

ENT 

B5  *00 

05337 

12500 

00000 

C5226 

ENT 

B6  *00 

05340 

12600 

OCOCO 

C5227 

ENT 

B7  *00 

05341 

12700 

00000 

C5230 

RPL 

Y*i*L<  FF) 

05342 

36010 

05323 

C5231 

RPL 

Y*1*L(FF) 

05343 

36010 

05323 

C5232 

EXIT 

05344 

61010 

05323 

C5233 

CCSX 

JP 

COSX 

05345 

61000 

05345 

C5234 

ENT 

B7  *L ( COSX ) 

05346 

12710 

05345 

NOTES 


M0D2 PI t S  ANGLES  WHICH  NEED  IT 


AND  CONVERTS  M, E» I , W, RAM, N  FRO 
M 

XPARAHETER  IS  E,I,W,0R  RAH 
X  X  IS  M  -  M0D2PI  THEN  CONVERT 


X  X 

X  X 

X  X 

X  X 

MEASURE  H  IN  ♦  DIRECTION 

X 

X 

X 

X 

X 


TEST  FOR  E 


X 

X 

X 

X  E  CONVERTED 
X 


CARDS 


i— ‘ 

§ 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCOUIL KIN* 7/1/65 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5235 

STR 

B7  *L ( S  INX  ) 

05347 

16710 

05357 

C5236 

ENT 

B7*  1 

05350 

12700 

00001 

FLAG 

C5237 

STR 

B7*L ( S INX+42D ) 

05351 

16710 

05431 

C5240 

JP 

COSX ♦ 7* APOS 

05352 

60600 

05354 

C  524  1 

CP 

A* 

05353 

15040 

00000 

C5242 

JP 

S I NX+2* ANOT 

05354 

60500 

05361 

C5243 

ENT 

A  »  W  (  S  I NX+60D ) 

05355 

11030 

05453 

C5244 

JP 

S  I  NX  1 

05356 

61000 

05467 

C5245 

S  I NX 

JP 

SINX 

05357 

61000 

05357 

C5246 

STR 

BO*L ( S INX+42D ) 

05360 

16010 

05431 

C5247 

STR 

A*W(SINX+68D) * APOS 

05361 

15630 

05463 

C5250 

CP 

A* 

05362 

15040 

00000 

SET  POSITIVE 

C5251 

RPT 

29  D 

05363 

70000 

0003  5 

C5252 

LSH 

A* 1»ANEG 

05364 

06700 

00001 

SHIFT  UNTIL  BIT  29  1 

C5253 

JP 

S  I  NX  l 

05365 

61000 

05467 

C5254 

LSH 

A*  29D 

05366 

06000 

00035 

SHIFT  RIGHT  1 

C5255 

SUB 

Q*  B7*QP0S 

05367 

27607 

00000 

QNEG  IMPLIES  X  EXCEEDS  PI/2 

C5256 

JP 

SINX+34D 

05370 

61000 

05421 

C5257 

COM 

0*  30D* YMORE 

05371 

04300 

00036 

PREVENT  ILLEGITIMATE  SHIFT 

C5260 

ENT 

Q*  30D 

05372 

10000 

0003  6 

MAX  SHIFT  3U 

C5261 

STR 

Q*L(SINX+13D) 

05373 

14010 

05374 

STORE  SHIFT  COUNT 

C5262 

RSH 

A»0 

05374 

02000 

00000 

SCALE  ARGUMENT  AT  28 

C5263 

COM 

A*W( SINX+59D)*YM0RE 

05375 

04730 

05452 

COMPARE  WITH  PI/2 

C5264 

JP 

SINX+37D 

05376 

61000 

05424 

REDUCE  TO  1ST  QUADRANT 

C5265 

BSK 

B0*L (SINX  +  42D ) 

05377 

71010 

05431 

SKIP  IF  SINE 

C5266 

SUB 

A*W(  SINX  +  59DMSK  IP 

05400 

21130 

05452 

P1/2-X  TO  A 

C5267 

ENT 

Q*W(SINX+68C)*QP0S 

05401 

10230 

05463 

CHECK  SIGN 

C5270 

CP 

A* 

05402 

15040 

OOOCO 

A  BEARS  PROPER  SIGN 

C5271 

STR 

A*W ( S INX+68D ) 

05403 

15030 

05463 

STORE  SIGNED  ARGUMENT 

C5272 

ENT 

Q*  A 

05404 

10070 

00000 

SCALED  AT  28 

C5273 

MUL 

W( SINX+68D) 

05405 

22030 

05463 

X  2  AT  28+28  56 

C5274 

RSH 

A  Q  *  29D 

05406 

03000 

00035 

SQUARED  AT  27 

C5275 

STR 

Q*W  (  S  I  NX  +  69C  ) 

05407 

14030 

05464 

STORE  X  2 

C5276 

ENT 

Q*W(SINX+64D) 

05410 

10030 

05457 

C9 

C5277 

ENT 

B7  *  3 

05411 

12700 

00003 

LOOP  4  TIMES 

C53C0 

MUL 

W( SINX+69D) 

05412 

22030 

05464 

SUM  POLYNOMIAL 

C5301 

ENT 

Q*  A 

05413 

10070 

OOOCO 

C53C2 

ADD 

Q*  W  (  S  I  NX+60D+87  ) 

05414 

26037 

05453 

C5303 

B  JP 

B  7  »S I NX  +27D 

05415 

72700 

05412 

C53C4 

MUL 

W( SINX+68D) 

05416 

22030 

05463 

C5305 

LSH 

AQ*2 

05417 

07000 

00002 

SCALE  AT  28 

C  5306 

JP 

S  I  NX  1 

05420 

61000 

05467 

C53C7 

COM 

Q*X77741*YLESS 

05421 

04240 

77741 

CHECK  FOR  LEGIT  SHIFT 

C5310 

ENT 

Q*X7774l 

05422 

10040 

77741 

-30 

C5311 

STR 

Q*CPL( SINX+13D) 

05423 

14050 

05374 

C5312 

RSH 

AQ  *2 

05424 

03000 

00002 

C5313 

CIV 

W ( S I NX ♦ 59D ) 

05425 

23030 

05452 

FORM  X/IPI/2) 

C5314 

ENT 

A  *0 

05426 

11000 

00000 

CLEAR  A 

C5315 

LSH 

AQ*L  C  S  INX-*- 1  3D  ) 

05427 

07010 

05374 

C5316 

LSH 

AQ*2 

05430 

07000 

00002 

INTEGER  TO  A,  FRACTION  IN  Q 

C  53 1 7 

ADD 

A*C 

05431 

20000 

OOOCO 

0  FOR  SIN  *  1  FOR  COS 

C5320 

RSH 

A  Q  *  2 

05432 

03000 

000C2 

C5321 

ENT 

LP*W(SINX+67D  )*ANOT 

05433 

40530 

05462 

o 

^1 


CARDS 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


11  ID  LJBEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5322 

ENT 

LP*W( S INX+60D )  * ANO  T 

05434 

40530 

05453 

C5323 

JP 

SINX+51D 

05435 

61000 

05442 

C5324 

SUB 

LP*W { S INX+66D ) 

05436 

42030 

05461 

C5325 

ENT 

Q*W(SINX+68D)*QP0S 

05437 

10230 

05463 

ACCORD  SIGN 

C5326 

CP 

A* 

05440 

15040 

00000 

C5327 

JP 

S  I  NX  1 

05441 

61000 

05467 

C5330 

ENT 

LP*W(S INX+65D)*0DD 

05442 

40330 

05460 

C5331 

JP 

S  I NX-f  56D 

05443 

61000 

05447 

C5332 

14200  0 

05444 

14200 

00000 

CP? Q*QPOS 

C5333 

SUB 

Q*W( SINX+66C) *SKIP 

05445 

27130 

05461 

C5334 

*DD 

Q*W(SINX+66D) 

05446 

26030 

05461 

C5335 

MUL 

W ( S INX+59D ) 

05447 

22030 

05452 

C5336 

LSH 

AQ*  2 

05450 

07000 

00002 

SCALE  AT  28 

C5337 

JP 

S INX+ 18D 

05451 

61000 

05401 

RETURN 

C5340 

31103 

1  75524 

05452 

31103 

75524 

PI/2  AT  28 

C5341 

2000C  00000 

05453 

20000 

00000 

Cl  ISO  AT  28 

C5342 

52525 

i  25600 

05454 

52525 

25600 

C3-0S1666  665669E00B31 

C5343 

1042C 

;  71732 

05455 

10420 

71732 

C5  0. 8333025 18E-2B34 

C5344 

76301 

15701 

05456 

76301 

15701 

C7-. 1980741431E-3B37 

C5345 

00127 

r  23405 

05457 

00127 

23405 

C9  0. 260 1886 909E—5B40 

C5346 

60000  00000 

05460 

60000 

00000 

C5347 

4000C 

00000 

05461 

40000 

00000 

C5350 

17777 

r  77777 

05462 

17777 

77777 

C5351 

0 

0 

05463 

00000 

00000 

TEMPORARY 

C5352 

0 

0 

05464 

00000 

00000 

TEMPORARY 

C5353 

RESERVE  2 

05465 

00000 

oooco 

C5354  SINX1 

STR 

A#W(SINTEST)*APOS 

05467 

15630 

05503 

C5355 

CP 

A 

05470 

15040 

00000 

C5356 

ENT 

Q*H ( S I NX+60D ) 

05471 

10030 

05453 

C5357 

SUB 

Q* A*QPOS 

05472 

27670 

00000 

C5360 

JP 

S  I NX  1 1 

05473 

61000 

05476 

C5361 

£NT 

A*W( SINTEST) 

05474 

11030 

05503 

C5362 

JP 

L(SINX) 

05475 

61010 

05357 

C5363  SINX11 

ENT 

0*W ( S I NX+60D ) 

05476 

10030 

05453 

C5364 

ENT 

A*W(SINTEST)*APOS 

05477 

11630 

05503 

C5365 

CP 

Q* 

05500 

14000 

ooooo 

C5366 

STR 

Q*A 

05501 

14040 

oooco 

C5367 

JP 

L ( S INX  ) 

05502 

61010 

05357 

C5370  SINTEST  0 

0 

05503 

00000 

OOOOO 

C5371  S  CRT 

JP 

SORT 

05504 

61000 

05504 

ARBITRARY 

C5372 

CL 

Q* 

05505 

10000 

OOOOO 

CLEAR  Q 

C5373 

RPT 

14D 

05506 

70000 

00016 

NORMALIZE 

C5374 

RSH 

AQ*2* AZERO 

05507 

03400 

00002 

SHIFT  UNTIL  A  0 

C5375 

JP 

L ( SQRT  )*ANOT 

05510 

60510 

05504 

ERROR*  BIT  28  OR  29  1 

C5376 

LSH 

AQ*28D 

05511 

07000 

00034 

NORMALIZE  IN  A 

C5377 

STR 

A*W{ SQRT+34D)*AN0T 

05512 

15530 

05546 

STORE  NORMALIZED  RADICAND 

C5400 

JP 

SQRT+29D 

05513 

61000 

05541 

RADICAND  0 

C5401 

RSH 

A  *  3 

05514 

02000 

00003 

DIVIDE  BY  8  FOR  LINEAR  APPROX 

C5402 

COM 

A*W(SQRT+31D)*YM0RE 

05515 

04730 

05543 

SKIP  IF  BIT  24  0 

C5403 

ADD 

A*W(SQRT+33C)*SKIP 

05516 

20130 

05545 

ADD  7/8 

C5404 

1514C 

00000 

05517 

15140 

OOOOO 

CP, A, SKIP 

C54C5 

ADD 

A*W ( SQRT  +  340 ) *SK I P 

05520 

20130 

05546 

ARG/8*7/8+ARG 

C5406 

ADD 

A*W(SQRT+32D)*SKIP 

05521 

20130 

05544 

ADD  9/32 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CAROS 

LI  ID  L*BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5407 

RSH 

A  *  1 *SK  IP 

05522 

02100 

00001 

DIVIDE  BY  2 

C  54  1  0 

ADD 

A • W (  SQRT+34D  ) 

05523 

20030 

05546 

ARG/8+9/32+ARG 

C5411 

STR 

A* W ( SORT  +  35D ) 

05524 

15030 

05547 

LINEAR  APPROX  COMPLETE 

C5412 

ENT 

A«W ( SORT  +  34C ) 

05525 

11030 

05546 

ENTER  RADICAND  (SCALED  AT  28) 

C5413 

RSH 

AQ*2 

05526 

03000 

00002 

SCALE  AT  26 

C5414 

CIV 

W ( SORT  +  35D ) 

05527 

23030 

05547 

DIVIDE  (SCALED  AT  28) 

C5415 

ADD 

Q»W( SQRT+35D ) 

05530 

26030 

05547 

C5416 

RSH 

Q»1 

05531 

01000 

000C1 

C5417 

STR 

Q*W( SQRT+35D) 

05532 

14030 

05547 

C5420 

ENT 

A  * W ( SORT ♦340  ) 

05533 

11030 

05546 

ENTER  RADICAND 

C5421 

RSH 

AQ*2 

05534 

03000 

00002 

SCALE  2 ( ARG )  AT  26 

C5422 

CIV 

WISQRT+35D) 

05535 

23030 

05547 

DIVIDE, RESULT  IN  Q 

C5423 

ENT 

Y+Q*W($QRT+35D) 

05536 

30030 

05547 

2 ( RESULT  TO  A 

C5424 

RSH 

AQ • 1+B7  *QPOS 

05537 

03207 

00001 

C5425 

ADD 

A*  1 

05540 

20000 

00001 

ROUND 

C5426 

ENT 

B7  *L ( SORT ) 

05541 

12710 

05504 

EXIT  ADORESS  TO  B7 

C5427 

JP 

1  +  B7 

05542 

61007 

00001 

RETURN 

C5430 

01000  00000 

05543 

01000 

OOOCO 

C5431 

04400  00000 

05544 

04400 

00000 

9/32  AT  28 

C5432 

1600C  00000 

05545 

16000 

oooco 

7/8  AT  28 

C5433 

0 

0 

05546 

00000 

00000 

TEMPORARY 

C5434 

c 

0 

05547 

00000 

oooco 

TEMPORARYATAN 

C5435 

RESERVE  2 

05550 

00000 

00000 

C5436  ATANX 

JP 

ATANX 

05552 

61000 

05552 

C5437 

STR 

A  * W ( AT  ANX  +  62D )  • APO  S 

05553 

15630 

05650 

C5440 

CP 

A  • 

05554 

15040 

00000 

SET  POSITIVE 

C5441 

STR 

Q»W ( AT  ANX+63D ) *QPOS 

05555 

14230 

05651 

C5442 

CP 

Q* 

05556 

14000 

00000 

SET  POSITIVE 

C5443 

STR 

A-Q»W ( AT  ANX+64D ) 

05557 

33030 

05652 

FLAG  BEARS  SIGN  (SYS-SXS) 

C5444 

ENT 

Y  +  Q*A 

05560 

30070 

OOOCO 

RESTORE  A 

C5445 

COM 

Q» A*YL  ESS 

05561 

04270 

00000 

MIN  ( SYS, SX& )  TO  A 

C  5446 

LSH 

AQOOD 

05562 

07000 

00036 

INTERCHANGE  A, Q 

C5447 

STR 

Q»H( ATANX+65D) 

05563 

14030 

05653 

DIVISOR  Q  MAX  (SYS-SYS) 

C5450 

RSH 

AQ*2 

05564 

03000 

00002 

SCALE  01 V I DEND  AT  28 

C5451 

CIV 

W ( AT  ANX+65D  )  *NOOF 

05565 

23230 

05653 

DIVISOR  AT  U 

C5452 

JP 

L( ATANX) 

05566 

61010 

05552 

C5453 

STR 

Q»W( ATANX+65D) 

05567 

14030 

05653 

QUOTIENT  AT  28 

C5454 

SUB 

A*  A 

05570 

21070 

OOOCO 

CLEAR  ACCUMULATOR 

C5455 

LSH 

AQ*6*QP0S 

05571 

07200 

000C6 

ROUND  TO  NEAREST  16TH 

C5456 

ADD 

A*  1 

05572 

20000 

00001 

C5457 

ENT 

B7*A 

05573 

12770 

00000 

LOAD  INDEX  REGISTER  FOR  TABLE 
LOOKUP 

C5460 

STR 

Q*W( AT  ANX  +  66D) 

05574 

14030 

05654 

Y-YR  AT  34 

C5461 

ENT 

Q*  A 

05575 

10070 

OOOCO 

YR  AT  4 

C5462 

MUL 

W( ATANX+65D) 

05576 

22030 

05653 

Y  YR  AT  4+28  32 

C5463 

ADD 

A  *4 

05577 

20000 

00004 

4  1  AT  2  +  30  32 

C5464 

RSH 

AQ»4 

05600 

03000 

00004 

SCALE  AT  1  ♦  Y  YR  AT  28  IN  Q 

C5465 

STR 

Q*W( AT  ANX+65D ) 

05601 

14030 

05653 

C5466 

ENT 

A* W ( AT  ANX+66D ) 

05602 

11030 

05654 

Y  YR  AT  34 

C5467 

RSH 

AQ*8D 

05603 

03000 

00010 

SCALE  DIVIDEND  AT  34-8+30 

C5470 

CIV 

W ( AT  ANX+65D ) 

05604 

23030 

05653 

( Y— Y ) / ( 1+Y  YR) 

• 

C5471 

STR 

Q*W( AT ANX+65D ) 

05605 

14030 

05653 

2  AT  28 

• 

C5472 

MUL 

W ( AT  ANX+65D ) 

05606 

22030 

05653 

Z  2  AT  56 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5473 

DIV  W ( AT  ANX  +  43D ) 

05607 

23030 

05625 

-3  AT  26-Q  AT  56-26  30 

C5474 

MUL  VI ( AT  ANX  +  65D ) 

05610 

22030 

05653 

-Z  3/3  AT  28 

C  5475 

ADD  A*W ( AT  ANX  +  65D ) 

05611 

20030 

05653 

Z  -  Z  3/3  AT  23 

C5476 

ADD  A*W( ATANX+45D+B7) 

05612 

20037 

05627 

ADD  TABLE  ENTRY 

C5477 

ENT  Q*W(ATANX+64D)*QNEG 

05613 

10330 

05652 

C55CO 

SUB  A*W( ATANX+44D)*SKIP 

05614 

21130 

05626 

COMPLEMENT  ANGLE 

C55C1 

CP  A* 

05615 

15040 

00000 

SET  NEGATIVE 

C55C2 

RSH  A  *  1 

05616 

02000 

00001 

RESULT  AT  27 

C5503 

ENT  Q*W(ATANX+63D)»QP0S 

05617 

10230 

05651 

SUPPLEMENT  IF  X  NEGATIVE 

C5504 

ADD  A*W( ATANX+44D)*SKIP 

05620 

20130 

05626 

PI/2  AT  28  PI  AT  27 

C55C5 

CP  A* 

05621 

15040 

00000 

SET  POSITIVE 

C55C6 

ENT  Q*W( ATANX+62D) *QPOS 

05622 

10230 

05650 

ACCORD  PROPER  SIGN 

• 

C55C7 

CP  A* 

05623 

15040 

OOOCO 

• 

C5510 

JP  L(ATANX) 

05624 

61010 

05552 

EXIT 

• 

C5511 

63774 

42363 

05625 

63774 

42363 

3.0016901  AT  26 

C  5  5 1 2 

31103 

75524 

05626 

31103 

75524 

PI/2  AT  28  PI  AT  27 

C5513 

0  0 

05627 

00000 

00000 

ARCT AN ( 00/ 16 )  AT  28 

C5514 

00777 

25336 

05630 

00777 

25336 

1 

C  55 1 5 

01772 

55652 

05631 

01772 

55652 

2 

C  5  5 1 6 

02756 

27552 

05632 

02756 

27552 

3 

C5517 

03726 

67277 

05633 

03726 

67277 

4 

C5520 

04661 

16716 

05634 

04661 

16716 

5 

C5521 

05573 

03120 

05635 

05573 

03120 

6 

C5522 

G6462 

35661 

05636 

06462 

35661 

7 

C5523 

07326 

14701 

05637 

07326 

14701 

8 

C5524 

10145 

37512 

05640 

10145 

37512 

9 

C5525 

10740 

02726 

05641 

10740 

02726 

10 

C5526 

11505 

74016 

05642 

11505 

74016 

11 

C5527 

12227 

43722 

05643 

12227 

43722 

12 

C5530 

12725 

42304 

05644 

12725 

42304 

13 

C5531 

13400 

51742 

05645 

13400 

51742 

14 

C5532 

14031 

64134 

05646 

14031 

64134 

15 

C5533 

14441 

76652 

05647 

14441 

76652 

16 

C5534 

C  0 

05650 

00000 

00000 

TEMPORARIES 

C  5  535 

0  0 

05651 

00000 

OOOCO 

C  5  536 

0  0 

05652 

00000 

OOOCO 

C5537 

0  0 

05653 

00000 

00000 

C5540 

0  0 

05654 

00000 

00000 

C5541 

RESERVE 

2 

05655 

00000 

OOOCO 

C5542  ASINX 

JP  ASINX 

05657 

61000 

05657 

C  5543 

STR  A*W( AS INX+25D )*APOS 

05660 

15630 

05710 

C  5  544 

CP  A* 

05661 

15040 

00000 

SET  ARGUMENT  POSITIVE 

C  5545 

COM  Q*57D*YM0RE 

05662 

04300 

00071 

C5546 

ENT  G*57D 

05663 

10000 

00071 

C5547 

ADD  Q*  2 

05664 

26000 

00002 

C5550 

JP  ASINX1 

05665 

61000 

05712 

C5551 

STR  Q*L(ASINX+9D)*QP0$ 

05666 

14210 

05670 

C5552 

JP  L ( AS  I NX ) 

05667 

61010 

05657 

C5553 

RSH  AQ  »0* ANOT 

05670 

03500 

00000 

CHECK  FOR  ARGUMENT  GREATER  OR 

■3 

C  5  554 

STR  Q*W( ASINX +26D )*QPOS 

05671 

14230 

05711 

C 

C5555 

JP  LIASINX) 

05672 

61010 

05657 

ERROR  RETURN 

C5556 

MUL  VI  (  AS  INX  +  26D  ) 

05673 

22030 

05711 

SQUARE  ARGUMENT 

110 


CARDS 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


LI  ID 

L  ^ BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5557 

RSH 

AQ*28D 

05674 

03000 

00034 

C  5560 

ENT 

Y-Q*W( ASINX424D) 

05675 

31030 

05707 

C  556 1 

RJP 

SORT 

05676 

65000 

05504 

COMPUTE  SORT ( 1-ARG  SQUARED) 

C5562 

JP 

L< ASINX) 

05677 

61010 

05657 

C5563 

ENT 

C»  A 

05700 

10070 

00000 

ARCSINEX  ARCTAN(X/SQRT( 1-XSQUA 

RED)  ) 

C5564 

ENT 

A*W ( AS  INX+26D  ) 

05701 

11030 

05711 

C  5565 

RJP 

ATANX 

05702 

65000 

05552 

COMPUTE  ARCSINE  ( -X ) 

C5566 

ENT 

C*W( AS  INX  +  25D  )  *QPOS 

05703 

10230 

05710 

C5567 

CP 

A* 

05704 

15040 

OOOCO 

C  5  570 

ENT 

B7*L( ASINX) 

05705 

12710 

05657 

C  5571 

JP 

1*87 

05706 

61007 

000C1 

EXIT 

C  5572 

2000C  00000 

05707 

20000 

OOOCO 

1  AT  28 

C  5573 

C 

0 

05710 

00000 

00000 

TEMPORARY 

C5574 

C 

0 

05711 

00000 

00000 

temporary 

C5575 

A  S I  NX  1 

STR 

A*W( AS  INXCON) 

05712 

15030 

04  03  0 

TEST  VERY  NEAR  ZERO 

C  5576 

RSH 

A*  12D 

05713 

02000 

00014 

C5577 

JP 

ASINX11*AZER0 

05714 

60400 

05717 

C56C0 

ENT 

A*W<  AS  INXCON ) 

05715 

11030 

04  03  0 

C5601 

JP 

AS  INX  +  7 

05716 

61000 

05666 

C5602 

A  S I  NX  1 1 

ENT 

A  * W ( AS INXCON ) 

05717 

11030 

04  03  0 

C5603 

LSH 

A*  1 

05720 

06000 

00001 

C5604 

JP 

AS  INX  +  20D 

05721 

61000 

057C3 

C5605 

MCD2PI 

ENTRY 

05722 

61000 

OOOCO 

C  5606 

STR 

B 1  *L ( MODB 1 ) 

05723 

16110 

05747 

C5607 

STR 

B4*L(M0DB4) 

05724 

16410 

05750 

C5610 

STR 

B5*L ( M0DB5 ) 

05725 

16510 

05751 

C5611 

STR 

B6  *L ( M0DB6 ) 

05726 

16610 

05752 

C5612 

STR 

B7  *L ( M0DB7 ) 

05727 

16710 

05753 

C5613 

STR 

A  «W ( MODNUM ) 

05730 

15030 

06006 

IS  EXP  LESS  THAN  OR 

C5614 

STR 

0 (  MODNUM* 1  ) 

05731 

14030 

060C7 

EQUAL  TO  40003 

C5615 

ENT 

Q«6 1000 

05732 

10000 

61000 

INITIALIZATION 

C  561 6 

STR 

Q *U I  MODI ) 

05733 

14020 

05755 

C5617 

STR 

Q*U(M0D2) 

05734 

14020 

05756 

C5620 

MCD5 

COM 

A*40004*YM0RE 

05735 

04700 

40004 

C5621 

JP 

MODI 

05736 

61000 

05755 

NO  ERROR 

C5622 

SUB 

A*40003*A2ER0 

05737 

21400 

400C3 

IS  EXP  40003 

C5623 

JP 

modnorm 

U5740 

61000 

05745 

NO  NUMBER  GOOD 

C5624 

ENT 

A* W { MODNUM* 1 ) * APQS 

05741 

11630 

060C7 

TEST  FRAC  PUS 

C5625 

CP 

A 

05742 

15040 

OOOCO 

C5626 

COM 

A*W(BEL2PI1*1  )*YMORE 

05743 

04730 

06013 

C  562  7 

JP 

MODI 

05744 

61000 

05755 

NO  ERROR 

C563C 

MCDNCRM 

ENT 

A  * W ( MODNUM ) 

05745 

11030 

06006 

NORMAL  EXIT 

C5631 

ENT 

Q*W(M0DNUM+1) 

05746 

10030 

06007 

FRAC  IN  Q 

C  5632 

MCDB1 

ENT 

B  1  *0 

05747 

12100 

OOOCO 

C5633 

MCDB4 

ENT 

B4*0 

05750 

12400 

OOOCO 

C5634 

MCDB5 

ENT 

B5*0 

05751 

12500 

OOOCO 

C5635 

MCDB6 

ENT 

B6  *0 

05752 

12600 

00000 

C5636 

MCDB7 

ENT 

B7*0 

05753 

12700 

OOOCO 

C5637 

EXIT 

05754 

61010 

05722 

EXP  IN  A 

C  5640 

MCD1 

JP 

MQD3 

05755 

61000 

05760 

SW  BETA  JP  TO 

C  564 1 

MCD2 

JP 

M0D4 

05756 

61000 

05764 

SW  ALPHA 

C5642 

JP 

M0C6 

05757 

61000 

05774 

Ill 


CARDS 


.  SPURT  OUTPUT  NO.  210 

SAT  EL  MCQUlLKIN*7/l/65 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5643 

PCD3 

ENT 

Q*  12000 

05760 

10000 

12000 

SET  BETA  TO  B 

C5644 

STR 

Q  *U ( MOD  1 ) 

05761 

14020 

05755 

C  5645 

ENT 

A *W  ( MODNUM* 1 ) • APOS 

05762 

11630 

06007 

TEST  NUM  FOR  POS 

C5646 

JP 

M0D6 

05763 

61000 

05774 

NO  JP  TO  NEC  ROUT 

C5647 

MCD4 

ENT 

B4*M0DNUM 

05764 

12400 

06006 

SUB  2PI  FROM  NUM 

C5650 

ENT 

B5*BEL2PI 

05765 

12500 

06010 

C5651 

ENT 

B6*M0DNUM 

05766 

12600 

06006 

STORE  IN  NUMBER 

C5652 

ENT 

B7*01 

05767 

12700 

00001 

C5653 

ENT 

Bl*l 

05770 

12100 

00001 

C5654 

EXECUTE  FLTPT 

05771 

65000 

06155 

C5655 

ENT 

A  *  W  ( MODNUM ) 

05772 

11030 

06006 

EXP  IN  A  REGISTER 

C5656 

JP 

M0D5 

05773 

61000 

05735 

JP  TO  TEST  FOR  LESS 
2PI 

THAN 

OR  * 

C5657 

M  CD6 

ENT 

B4*M0DNUM 

05774 

12400 

06006 

C5660 

ENT 

B5-BEL2PI 

05775 

12500 

06010 

0566 1 

ENT 

B6*MOONUM 

05776 

12600 

06006 

STORE  IN  NUMBER 

C5662 

ENT 

B7*00 

05777 

12700 

00000 

C5663 

ENT 

B  1  *  1 

06000 

12100 

00001 

C5664 

EXECUTE  FLTPT 

06001 

65000 

06155 

ADO  2PI  TO  NEG  NUM 

C5665 

ENT 

Q*  12000 

06002 

10000 

12000 

C5666 

STR 

Q*U  ( M002 ) 

06003 

14020 

05756 

C5667 

ENT 

A*W i MODNUM ) 

06004 

11030 

06006 

EXP  IN  A 

C5670 

JP 

M0D5 

06005 

61000 

05735 

JP  TO  TEST  FOR  LESS 
2  PI 

THAN 

OR  * 

C5671 

PCDNUP 

0 

0 

06006 

00000 

00000 

C5672 

0 

0 

06007 

00000 

00000 

C5673 

BEL2PI 

00000  40003 

06010 

00000 

40003 

C5674 

14441  76652 

06011 

14441 

76652 

C5675 

BEL2PI1 

COOOC  40003 

06012 

00000 

40003 

C5676 

14441  76653 

06013 

14441 

76653 

C5677 

SATIMT 

ENTRY 

06014 

61000 

00000 

C57C0 

ENT 

A* 1004077777 

06015 

11030 

07623 

C57C1 

STR 

A*W ( FL  TPT ♦ 1 34 ) 

06016 

15030 

06311 

C5702 

R  JP 

DATAIN 

06017 

65000 

00002 

C5703 

R  JP 

UPCALC 

06020 

65000 

01005 

C5704 

R  JP 

BLASTCONV 

06021 

65000 

05066 

C5705 

R  JP 

INCONYER 

06022 

65000 

05076 

C5706 

R  JP 

TCONVERT 

06023 

65000 

05233 

C5707 

STR 

Q*W ( DATE ) 

06024 

14030 

03532 

C5710 

ENT 

A*W ( DMODE ) 

06025 

11030 

00662 

C5711 

SUB 

A*1*AZER0 

06026 

21400 

00001 

C5712 

JP 

MCALCORJ 

06027 

61000 

06034 

C5713 

ENT 

0*61000 

06030 

10000 

61000 

C5714 

STR 

Q*U< JMPCALC) 

06031 

14020 

0604  7 

C5715 

SATINITEX 

RPL 

Y* 1 *L ( S AT  IN  I T ) 

06032 

36010 

06014 

C5716 

JP 

L(SATINIT) 

06033 

61010 

06014 

C5717 

MCALCDR J 

ENT 

0*12000 

06034 

10000 

12000 

C5720 

STR 

Q*U  I  JTTEST SV< ) 

06035 

14020 

06050 

C5721 

STR 

Q*U ( JMPCALC ) 

06036 

14020 

0604  7 

C5722 

JP 

SATINITEX 

06037 

61000 

06032 

C5723 

SATWORK 

ENTRY 

06040 

61000 

00000 

C5724 

R  JP 

FF 

06041 

65000 

05323 

CONVERT  CELTIME  TO 

SEC  GAMMA* 

24 


112 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN»7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C5725 

28D 

CELTIME 

06042 

00034 

63133 

X 

C5726 

U-TAG  CELT IMEX*  10 

06043 

03774 

00010 

X  CELTIME  IN  FLTPT 

C5727 

RJP 

FF 

06044 

65000 

05323 

X 

C5730 

U-TAG  CELTIMEX*FLT864 

06045 

03774 

040C6 

X 

C5731 

U-TAG  CELT IMEX  *02 

06046 

03774 

000C2 

C5732  J  MPC ALC 

JP 

SCCR1 

06047 

61000 

06077 

C5733  JTTESTSW 

JP 

SCDR2 

06050 

61000 

06111 

INITIAL  JUMP  INTERVAL  CALC 

C5734 

ENT 

Q*6 1000 

06051 

10000 

610C0 

C5735 

STR 

Q*U( JTTESTSW) 

06052 

14020 

06050 

C5736 

ENT 

C*W ( FRAMES  I ZE ) 

06053 

10030 

63 1 C 1 

TEST, REALTIME  OR  SIMULATION  R 

C5737 

ENT 

A*W(T IMEMODE) *APOS 

06054 

11630 

63103 

n 

AND  CALCULATE  START  TIME 

C5740 

LSH 

Q*2 

06055 

05000 

000C2 

SIMULAT lONtCELT  IME  +  4X  FRAMES  1 Z 

C5741 

STR 

Q*W(MTEMP7) 

06056 

14030 

03762 

REALTIME, CELT IME+FRAMESIZE 

C5742 

RJP 

FF 

06057 

65000 

05323 

C5743 

C 

MTEMP7 

06060 

00000 

03762 

C5744 

U-TAC 

SATFRAM*  10 

06061 

06152 

00010 

C5745 

RJP 

FF 

06062 

65000 

05323 

C5746 

U-TAC 

SATFRAM*CELTIMEX 

06063 

06152 

03774 

CELTIME  ♦  CORRECTED  FRAMESIZE 

C5747 

U-TAG 

CELT  IMEX*00 

06064 

03774 

OOCCO 

*  STARTTIME 

C5750 

RJP 

FF 

06065 

65000 

05323 

CELTIME+JMP  INTERVAL 

C575I 

U-TAG 

;  CELT IMEX* JMPDELT 

06066 

03774 

00660 

X 

C5752 

U-TAG 

JMPPTX*00 

06067 

06150 

OOOCO 

X 

C  5  753 

RJP 

FF 

06070 

65000 

05323 

C5754 

U-TAG 

JMPDELT*FLTTWOX 

06071 

00660 

04014 

CALCULATE .JMP  INTERVAL/2 

C5755 

U-TAG 

JMPP  T  *03 

06072 

06146 

00003 

X 

C5756 

RJP 

FF 

06073 

65000 

05323 

X 

C5757 

U-TAG 

CELT IMEX*JMPP  T 

06074 

03774 

06146 

XXX  ♦  CELTIME 

C5760 

U-TAG 

JMPPT  *00 

06075 

06146 

OOOCO 

C5761 

JP 

SCDR2 

06076 

61000 

06111 

TEST, CELTIME  WITHIN  TIME 

C5762  SCDR1 

MOVE 

2*CELTIMEX*MTIME 

06077 

10030 

03774 

06100 

14030 

03530 

06101 

10030 

03775 

06102 

14030 

03531 

C5763  DRXXXX 

RJP 

MCALC 

06103 

65000 

01310 

C5764  DRXXX 

RJP 

SCALC 

06104 

65000 

02672 

C  5765 

JP 

MC ALCDRERR 

06105 

61000 

06145 

C5766 

RPL 

Y-*- 1  *L  (  S  ATWORK  ) 

06106 

36010 

06040 

C5767 

CL 

A* 

06107 

11000 

OOOCO 

C577U 

JP 

L ( SATWORK ) 

06110 

61010 

06040 

C5771  SCDR2 

ENT 

A*W( JMPPTX ) 

06111 

11030 

06150 

INTERVAL  BEING  USED 

C5772 

COM 

A*W(CELTIMEX)*YLESS 

06112 

04630 

03774 

C5773 

JP 

SCDR5 

06113 

61000 

06135 

C5774 

SUB 

A*W(CELTIMEX)*AZERO 

06114 

21430 

03774 

LESS  THAN  OR  EQUAL 

C5775 

JP 

SCCR3 

06115 

61000 

06121 

LESS, USE  SAME  POINT 

C5776 

ENT 

A*W( JMPPTX+1) 

06116 

11030 

06151 

MAYBE  EQUAL 

• 

C5777 

COM 

A*W(CELTIMEX+1 )*YLESS 

06117 

04630 

03775 

• 

C6CC0 

JP 

SCCR4 

06120 

61000 

06126 

• 

C6C01  SCDR3 

MOVE 

2* JMPPT*MT I  ME 

06121 

10030 

06146 

06122 

14030 

03530 

06123 

10030 

06147 
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.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

Li  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

06124 

14030 

03531 

C6002 

JP 

ORXXXX 

06125 

61000 

06103 

C6C03 

SCDR4 

RJP 

FF 

06126 

65000 

05323 

CALCULATE  NEW  POINT 

C6004 

U-TAG  JMPPTX»JMPOELT 

06127 

06150 

00660 

C6C05 

U-TAG  JMPPTX*00 

06130 

06150 

00000 

C6006 

RJP 

FF 

06131 

65000 

05323 

• 

C6C07 

U-TAG  JMPPT* JMPOELT 

06132 

06146 

00660 

• 

C6010 

U-TAG  JMPPT  *00 

06133 

06146 

00000 

• 

C6011 

JP 

SCDR2 

06134 

61000 

06111 

C6C12 

SCDR5 

ENT 

A*W(CELTIMEX+1)*AP0S 

06135 

11630 

03775 

C6013 

JP 

SCDR3 

06136 

61000 

06121 

C6014 

JP 

SCCR4 

06137 

61000 

06126 

C6015 

T  TEST 

12  314 

63146 

06140 

12314 

63146 

GAMMA*28  .65 

C6016 

C  ELT I  PE  XX 

C 

0 

06141 

00000 

00000 

C6C17 

C 

0 

06142 

00000 

00000 

C6C20 

CELT  1 2 

C 

0 

06143 

00000 

00000 

C6021 

C 

0 

06144 

00000 

00000 

C6022 

PCALCCRERR 

0 

0 

06145 

00000 

00000 

C6C23 

JMPPT 

0 

0 

06146 

00000 

00000 

C6024 

0 

0 

06147 

00000 

00000 

C6025 

JFPPTX 

0 

G 

06150 

00000 

00000 

C6026 

0 

0 

06151 

00000 

oooco 

C6027 

SATFRAM 

0 

0 

06152 

00000 

00000 

C6C30 

G 

0 

06153 

00000 

00000 

• 

C6031 

NO-OP 

06154 

12000 

00000 

DUMMY 

• 

C6032 

FLTPT 

PROGRAM  C0RR8* 16M AR  64 

• 

C6033 

IGNORE  FLTPT 

• 

C6C34 

PTR 

MEANS 

*  C4 

• 

C6035 

P  CUT 

MEANS  C4 

• 

C6036 

FLTPT 

ENTRY 

06155 

61000 

oooco 

C6037 

STR 

B 1 *L ( FP 1 ) 

06156 

16110 

06164 

C6040 

STR 

B4  *L ( FP4 ) 

06157 

16410 

06165 

C6041 

STR 

B5*L ( FP5 ) 

06160 

16510 

06166 

C6042 

STR 

B6  *L ( FP6 ) 

06161 

16610 

06167 

C6C43 

STR 

B7*L ( FP7 ) 

06162 

16710 

06170 

C6C44 

RJP 

L ( EFP+B7) 

06163 

65017 

06172 

C6C45 

F  PI 

ENT 

B  1*0 

06164 

12100 

00000 

C6G46 

FF4 

ENT 

B4  *0 

06165 

12400 

00000 

C6C47 

FF5 

ENT 

B5  *0 

06166 

12500 

00000 

C6C50 

FP6 

ENT 

B6*0 

06167 

12600 

00000 

C6051 

FP7 

ENT 

B7*0 

06170 

12700 

00000 

C6052 

EXIT 

06171 

61010 

06155 

C6C53 

EFP 

0 

ADD 

06172 

00000 

06214 

ADDITION 

C6C54 

0 

SUB 

06173 

00000 

06253 

SUBTRACTION  1 

C6055 

0 

MPL 

06174 

00000 

06263 

MULTIPLICATION 

C6056 

c 

OIV 

06175 

00000 

06275 

DIVISION 

C6C57 

0 

STARTREAD 

06176 

00000 

07055 

OATA  INPUT 

C6C60 

c 

PUNCH 

06177 

00000 

06420 

PUNCH  OUTPUT 

C6G61 

0 

TYPE 

06200 

00000 

06416 

TYPE  OUTPUT 

C6C62 

0 

SET 

06201 

00000 

06361 

SET  OUTPUT  LENGTH 

C6C63 

0 

FXTOFL 

06202 

00000 

06363 

FIX  TO  FLOAT 

C6064 

G 

FLTOFX 

06203 

00000 

06373 

FLOAT  TO  FIX 

C6065 

0 

SQR 

06204 

00000 

06444 

SQUARE  ROOT 
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.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUI L  KIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6066 

0 

SIN 

06205 

00000 

07470 

SINE  OF  ARGUMENT 

C6067 

C 

COS 

06206 

00000 

07577 

COS  OF  ARGUMENT 

C6070 

0 

ATAN 

06207 

00000 

06536 

ARCTANGENT  OF  ARGUMENT 

C6071 

c 

EXP 

06210 

00000 

06616 

EXPONENTIAL  OF  ARGUMENT 

C6072 

0 

ASIN 

06211 

00000 

07060 

• 

C6073 

0 

ACOS 

06212 

00000 

07264 

• 

C6074 

0 

LOGE 

06213 

00000 

07307 

• 

C6C75  ACD 

ENTRY 

06214 

61000 

00000 

C6076 

ENT 

A*L(B4) 

06215 

11014 

00000 

C6C77 

SUB 

A* L ( B 5  )  * ANEG 

06216 

21715 

00000 

Cl  MINUS  C2 

C6100 

JP 

POS 

06217 

61000 

06232 

C6101 

ENT 

Q*L(B5) 

06220 

10015 

00000 

C2  IS  THE 

C6102 

STR 

Q*W(B6) 

06221 

14036 

00000 

RESULTANT  CHARACTERISTIC 

C6103 

SEL 

CP*X77777 

06222 

51040 

77777 

C2  MINUS  Cl 

C6104 

COM 

A*  35* YL  ESS 

06223 

04600 

00035 

C2-C1  GREATER  THAN  28 

C6105 

STR 

A*L(SFT1)*SKIP 

06224 

15110 

06243 

NO 

C6106 

JP 

MTR1 

06225 

61000 

06250 

YES 

C6107 

ENT 

A*W ( 1  +  B5) 

06226 

11035 

00001 

C6110 

STR 

A*W ( WS  ) 

06227 

15030 

06422 

STORE  LARGER  MANTISSA 

C6111 

ENT 

A*W( 1+B4) 

06230 

11034 

00001 

C6112 

JP 

SFT 

06231 

61000 

06242 

C6113  PCS 

ENT 

Q*L(B4) 

06232 

10014 

00000 

Cl  IS  THE  RESULTANT 

C6114 

STR 

Q*W(B6) 

06233 

14036 

00000 

CHARACTER  I  ST IC 

C6115 

COM 

A*35*YLESS 

06234 

04600 

00035 

C1-C2  GREATER  THAN  28 

C6116 

STR 

A*L ( SFT  1 ) *SK IP 

06235 

15110 

06243 

NO 

C6117 

JP 

MTR 

06236 

61000 

06247 

YES 

C6120 

ENT 

A  *W  (  1  +  B4) 

06237 

11034 

00001 

• 

C6121 

STR 

A*W( WS  ) 

06240 

15030 

06422 

STORE  LARGER  MANTISSA 

• 

C6122 

ENT 

A*W( 1 ♦ B  5 ) 

06241 

11035 

00001 

• 

C6123  S FT 

ENT 

Q*0 

06242 

10000 

00000 

C6124  S FT  1 

rsh 

AQ*0 

06243 

03000 

00000 

SET  RADIX  POINTS 

C6125 

ADD 

A* W ( WS  ) 

06244 

20030 

06422 

ADD  LARGER  MANTISSA 

• 

C6 126 

R  JP 

SCL 

06245 

65000 

06315 

TO  SCALE 

• 

C6127 

EXIT 

06246 

61010 

06214 

• 

C6130  MTR 

ENT 

A*W ( 1 +  B4  ) *SK I P 

06247 

11134 

00001 

Ml  RESULTANT  MANTISSA 

C6131  MTRl 

ENT 

A  *W  (  1  B5 ) 

06250 

11035 

00001 

M2  RESULTANT  MANTISSA 

C6132 

STR 

A*W ( 1+B6 ) 

06251 

15036 

00001 

STORE  RESULTANT 

C6133 

EXIT 

06252 

61010 

06214 

C6134  SLB 

ENTRY 

06253 

61000 

ooooo 

C6135 

ENT 

A  *L ( B5 ) 

06254 

11015 

00000 

C6136 

STR 

A *L ( WS2  ) 

06255 

15010 

06424 

C2 

C6137 

ENT 

A  * W ( 1  +  B5) 

06256 

11035 

00001 

C6140 

STR 

A*CPW ( WS3 ) 

06257 

15070 

06425 

COMPLEMENT  M2 

C6141 

ENT 

B5*WS  2 

06260 

12500 

06424 

SET  B5 

C6142 

R  JP 

ADD 

06261 

65000 

06214 

JUMP  TO  ADD  ROUTINE 

• 

C6143 

EXIT 

06262 

61010 

06253 

• 

C 6 144  PPL 

ENTRY 

06263 

61000 

ooooo 

• 

C6145 

ENT 

A  *L ( B4  ) 

06264 

11014 

oooco 

C6146 

ADD 

A  *L ( B5 ) 

06265 

20015 

ooooo 

Cl  ♦  C2 

C6147 

SUB 

A*40000 

06266 

21000 

40000 

resultant  c 

C6150 

STR 

A *W ( B6  ) 

06267 

15036 

ooooo 

• 

C6151 

ENT 

Q*W (  UB4) 

06270 

10034 

000C1 

• 

C6152 

MUL 

W(  1  +  B5) 

06271 

22035 

00001 

(Ml) (M2) 
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.  SPURT  OUTPUT  NO.  210 

SATEL  MCOUIL KIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6153 

LSH 

AQ*2 

06272 

07000 

00002 

SHIFT  FOR  SCALE 

C6154 

RJP 

SCL 

06273 

65000 

06315 

TO  SCALE 

C6155 

EXIT 

06274 

61010 

06263 

C6156  DIV 

ENTRY 

06275 

61000 

00000 

C6157 

ENT 

A*W<  1+B5)*AZER0 

06276 

11435 

000C1 

C6160 

ENT 

A*L(B4)*SKIP 

06277 

11114 

00000 

C6161 

JP 

ERR 

06300 

61000 

06744 

ZERO  DIVISOR 

C6162 

SUB 

A*L( B5 ) 

06301 

21015 

oooco 

C1-C2 

C6163 

ADD 

A*40000 

06302 

20000 

40000 

RESULTANT  C 

C6164 

STR 

A  *L ( B6  ) 

06303 

15016 

00000 

C6165 

ENT 

Q*0 

06304 

10000 

00000 

C6166 

ENT 

A*W(  1  +  B4) 

06305 

11034 

00001 

Ml 

C6167 

RSH 

AQ*2 

06306 

03000 

00002 

PREPARE  FOR  DIVISION 

C6170 

DIV 

W ( 1  +  B5  ) 

06307 

23035 

00001 

Ml  DIVIDED  BY  M2 

C6171 

STR 

Q  *  A*  APOS 

06310 

14640 

00000 

QUOTIENT  TO  A.  IS  IT  POS 

C6172 

ENT 

Q*X— 0*SK I P 

06311 

10140 

77777 

NO  SET  NEG 

C6173 

CL 

Q 

06312 

10000 

00000 

YES  SO  SET  10  PLUS  ZERO 

C6174 

RJP 

SCL 

06313 

65000 

06315 

TO  SCALE 

C6175 

EXIT 

06314 

61010 

06275 

C6176  SCL 

ENTRY 

06315 

61000 

00000 

C6177 

JP 

NEG*ANEG 

06316 

60700 

06330 

C62C0 

RPT 

36 

06317 

70000 

00036 

C62C1 

LSH 

aq»i«aneg 

06320 

07700 

00001 

C6202 

JP 

ZERO 

06321 

61000 

06  352 

RESULT  ZERO 

C62C3 

SEL 

CL*1 

06322 

52000 

00001 

C6204 

ADD 

A  *  2# APOS 

06323 

20600 

00002 

• 

C6205 

JP 

AQR 

06324 

61000 

06337 

• 

C6206 

RPL 

Y+1*W( B6) 

06325 

36036 

00000 

ADD  1  TO  C 

• 

C62C7 

ENT 

A*W ( SCL2 ) 

06326 

11030 

06356 

40000  00000  TO  A 

C6210 

JP 

AQR 

06327 

61000 

06337 

C6211  NEC 

RPT 

36 

06330 

70000 

00036 

C6212 

LSH 

AQ*1*APQS 

06331 

07600 

00001 

C6213 

JP 

ZERO 

06332 

61000 

06352 

RESULT  ZERO 

C6214 

SUB 

A*2*ANEG 

06333 

21700 

00002 

C6215 

JP 

AQR 

06334 

61000 

06337 

NO  CHANGE 

C6216 

RPL 

Y+1*W( B6) 

06335 

36036 

00000 

C6217 

ENT 

A*W ( SCL  2+ 1 ) 

06336 

11030 

06357 

37777  77777  TO  A 

C6220  ACR 

RSH 

AQ*2 

06337 

03000 

00002 

SET  RADIX  PT 

C6221 

SEL 

CP*W ( SCL2+2 ) 

06340 

51030 

06  360 

SET  FIRST  TWO  BITS  0 

C6222 

STR 

A*W ( 1 +B6 ) 

06341 

15036 

00001 

RESULTANT  MANTISSA 

C6223 

STR 

B7*Q 

06342 

16700 

00000 

SHIFTS 

C6224 

ADD 

Q  *W ( B6  ) 

06343 

26036 

OOOCO 

CR  ♦  SHIFTS 

C6225 

SUB 

Q*34*QNEG 

06344 

27700 

00034 

CR  ♦  SHIFTS  -28,  SKIP  IF  Q  NEG 

C6226 

STR 

Q*W( B6)*SKIP 

06345 

14136 

00000 

STORE  RESULTANT  CHARACTERISTIC 

C6227 

JP 

ZERO 

06346 

61000 

06352 

RESULT  ZERO 

C6230 

SUB 

Q*77777*QP0S 

06347 

27600 

77777 

C6231 

EXIT 

06350 

61010 

06315 

• 

C6232 

JP 

ERR 

06351 

61000 

06  744 

OVERFLOW 

• 

C6233  ZERO 

STR 

BO*W ( B6 ) 

06352 

16036 

00000 

• 

C6234 

STR 

BO*W< 1+B6 ) 

06353 

16036 

00001 

RESULT  IS  ZERO 

C6235 

ENT 

A  *0 

06354 

11000 

00000 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUIl KlN*7/l/65 


CARDS 

LI  ID 

L  /BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6236 

S  CL  1 

EXIT 

06355 

61010 

06315 

C6237 

SCL2 

40000  00000 

06356 

40000 

OOOOO 

. C6240 

37777  77777 

06357 

37777 

77777 

C6241 

60000  00000 

06360 

60000 

OOOOO 

C6242 

SET 

ENTRY 

06361 

61000 

OOOOO 

C6243 

EXIT 

06362 

61010 

06361 

C6244 

FXTOFL 

ENTRY 

06363 

61000 

OOOOO 

C6245 

ENT 

Q*  X ( 84 ) 

06364 

10044 

OOOOO 

SCALING  POINT  TO  Q 

C6246 

ENT 

Y  — Q*400  34 

06365 

31000 

40034 

40034-S 

C6247 

STR 

A*W( B6) 

06366 

15036 

OOOOO 

CHARACTERISTIC 

C6250 

ENT 

Q*0 

06367 

10000 

OOOOO 

C6251 

ENT 

A*W ( B5 ) 

06370 

11035 

OOOOO 

FIX  NO 

C6252 

RJP 

SCL 

06371 

65000 

06315 

SCALE 

C6253 

EXIT 

06372 

61010 

06363 

C6254 

FLTOFX 

ENTRY 

06373 

61000 

OOOOO 

C6255 

ENT 

Q*X(B4) 

06374 

10044 

OOOOO 

SCALING  PT  WITH  SIGN 

C6256 

ADD 

Q*L( B5 ) 

06375 

26015 

OOOOO 

CHARACTERISTIC 

C6257 

SUB 

Q*40000 

06376 

27000 

40000 

C6260 

ENT 

Y-Q*34» APOS 

06377 

31600 

00034 

C6261 

JP 

FLT0FX2 

06400 

61000 

06410 

TO  NEG  BRANCH 

C6262 

STR 

A*L( FLTOFX 1 ) 

06401 

15010 

064C5 

SETUP  SHIFT 

C6263 

SUB 

A*  36* ANEG 

06402 

21700 

00036 

TEST  FOR  S  GREATER  THAN  29 

C6264 

ENT 

A*0*SK I P 

06403 

moo 

OOOOO 

CLEAR  SHIFT  GREATER  THAN  30 

C6265 

ENT 

A  •  W  ( 1 +B5 1 

06404 

11035 

00001 

MANTISSA 

C6266 

fltofxi 

RSH 

A*0 

06405 

02000 

ooooo 

SHIFT 

C6267 

STR 

A  * W ( B6  ) 

06406 

15036 

ooooo 

RESULTS 

C6270 

EXIT 

06407 

61010 

06373 

C6271 

FLT0FX2 

COM 

A*X77776*YLESS 

06410 

04640 

77776 

C6272 

JP 

ERR  12 

06411 

61000 

06764 

LEFT  SHIFt  GREATER  THAN  1 

C6273 

ENT 

A*W( 1+B5 ) 

06412 

11035 

00001 

MANTISSA 

C6274 

LSH 

A*  1 

06413 

06000 

00001 

SHIFT 

C6275 

STR 

A* W ( B6 ) 

06414 

15036 

OOOOO 

RESULT 

C6276 

EXIT 

06415 

61010 

06373 

C6277 

TYPE 

ENTRY 

06416 

61000 

OOOOO 

C6300 

EXIT 

06417 

61010 

06416 

C6301 

PLNCH 

ENTRY 

06420 

61000 

OOOOO 

C6302 

EXIT 

06421 

61010 

0642  0 

C6303 

WS 

C 

0 

06422 

00000 

OOOOO 

C6304 

WS1 

0 

0 

06423 

ooooo 

OOOOO 

C63C5 

WS2 

0 

0 

06424 

00000 

OOOOO 

C6306 

WS3 

0 

0 

06425 

OOOOO 

OOOOO 

C63C7 

WS4 

0 

0 

06426 

ooooo 

OOOOO 

C6310 

W  55 

C 

0 

06427 

ooooo 

ooooo 

C6311 

WS6 

0 

0 

06430 

ooooo 

OOOOO 

C6312 

WS7 

0 

0 

06431 

ooooo 

ooooo 

C6313 

W$10 

0 

0 

06432 

ooooo 

ooooo 

C6314 

Will 

0 

0 

06433 

ooooo 

ooooo 

C6315 

W  £12 

0 

0 

06434 

ooooo 

ooooo 

C6316 

W  $  13 

c 

0 

06435 

ooooo 

ooooo 

C6317 

W  S14 

0 

0 

06436 

ooooo 

ooooo 

C6320 

WS  1 5 

0 

0 

06437 

ooooo 

ooooo 

C6321 

WS16 

0 

0 

06440 

ooooo 

ooooo 

C6322 

RZERC 

STR 

BO*W ( B6 ) 

06441 

16036 

ooooo 

CARDS 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL  KI N*7/l/65 


LI  ID 

L  *  BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6323 

STR 

BO*W ( B6+ 1 ) 

06442 

16036 

00001 

C6324 

JP 

FP4 

06443 

61000 

06165 

C6325 

SCR 

ENTRY 

06444 

61000 

00000 

C6326 

ENT 

A  *U  ( 1+B4)*AP0S 

06445 

11634 

00001 

IS  MANTISSA  POSITIVE 

C6327 

JP 

ERR  1 3 

06446 

61000 

06766 

NO  ERROR  EXIT 

C6330 

ENT 

Q*W ( SQR 1 ) * ANOT 

06447 

10530 

06515 

MASK  FOR  2  EXP(-2),  2 

EXP(-3) 

C6331 

STR 

A*L ( B6  )  *SK I P 

06450 

15116 

00000 

RESULT  CHARACTERISTIC 

ZERO 

C6332 

STR 

L P *A*SK  I P 

06451 

47140 

00000 

EXTRACT  RANGE  FACTOR* 

C 

SCALED  2 

C6333 

STR 

A*W< 1 +B6 ) *SK I P 

06452 

15136 

00001 

5 

RESULT  MANTISSA  2ER0 

C6334 

RSH 

A*250*SK IP 

06453 

02100 

00031 

RANGE  FACTOR  SCALED  0 

C6335 

EXIT 

06454 

61010 

06444 

C6336 

ENT 

B5*  A 

06455 

12570 

00000 

LOAD  B5  WITH  FACTOR 

C6337 

ENT 

Q*W( 1  +  B4) 

06456 

10034 

00001 

M  SCALED  28 

C6340 

MUL 

W ( SQR2+B5 ) 

06457 

22035 

06522 

TIMES  K  SCALED  2 

C6341 

RSH 

AQ*2 

06460 

03000 

00002 

M  (  1 )  SCALED  28 

C6342 

STR 

Q*U(WS) 

06461 

14030 

06422 

SAVE  Mil) 

C6343 

RSH 

0*3 

06462 

01000 

00003 

TIMES  1/8 

C6344 

ADO 

Q*W( SQR1+1 ) 

06463 

26030 

06516 

MINUS  B 

C6345 

MUL 

U  ( US  ) 

06464 

22030 

06422 

C6346 

RSH 

AQ*29D 

06465 

03000 

00035 

SCALED  27 

C6347 

AOO 

Q*W ( SQR 1+2 ) 

06466 

26030 

06517 

MINUS  C 

C6350 

STR 

Q*U ( WS+ 1 ) 

06467 

14030 

0642  3 

SAVE  -A  SCALED  27 

C6351 

CL 

0 

06470 

10000 

00000 

SET  UP 

C6352 

ENT 

A*W(WS) 

06471 

11030 

06422 

Ml  1) 

C6353 

RSH 

AQ*4 

06472 

03000 

00004 

SCALED  54 

C6354 

OIV 

UCHS+1  ) 

06473 

23030 

0642  3 

M ( 1 ) / C -A )  SCALED  27 

C6355 

ADD 

Q*W ( US  *  1 ) 

06474 

26030 

06423 

MINUS  A 

C6356 

STR 

Q*U ( US ) 

06475 

14030 

06422 

SAVE  -2 (SORT  M(l) 

C6357 

ENT 

A*L(B4) 

06476 

11014 

OOOCO 

CHARACTERISTIC 

C6360 

ADD 

A*U ( SQR 1*3 ) 

06477 

20030 

06520 

PLUS  BIAS 

C636L 

LSH 

A  *  290 

06500 

06000 

00035 

HALVED 

C6362 

STR 

A*L(B6)*ANEG 

06501 

15716 

OOOCO 

TO  RESULT  CHECK  EVEN/OOD 

C6363 

MUL 

U(SQR3+B5)*SKIP 

06502 

22135 

06526 

EVEN  CHAR  CORRECTION  SCALED  29 

C6364 

MUL 

U ( SQR4+B5 ) 

06503 

22035 

06532 

ODD  CHAR 

C6365 

RSH 

AQ*280 

06504 

03000 

00034 

N  SCALED  28 

C6366 

COM 

Q*U(SQR1+4)*YLESS 

06505 

04230 

06521 

IS  N  NORMALIZED 

C6367 

JP 

SORT  1 

06506 

61000 

06513 

YES 

C6370 

ENT 

A*L ( B6 ) 

06507 

11016 

00000 

ADD  1 

C6371 

AOO 

A*  1 

06510 

20000 

00001 

TO 

C6372 

STR 

A  *L ( B6  ) 

06511 

15016 

00000 

CHAR. 

C6373 

RSH 

0*1 

06512 

01000 

00001 

NORMALIZE 

C6374 

S  CRT  l 

STR 

Q*U ( 1 +  B6 ) 

06513 

14036 

00001 

STORE  RESULT 

C6375 

EXIT 

06514 

61010 

06444 

C6376 

SCR1 

0600000000 

06515 

06000 

00000 

MASK 

C6377 

6376776144 

06516 

63767 

76144 

-B  SCALED  28 

C64C0 

7500402153 

06517 

75004 

02153 

-C  SCALED  27 

C6401 

COOOC4QOOO 

06520 

00000 

400CO 

BIAS 

C64C2 

2000C00000 

06521 

20000 

OOOCO 

1.0  SCALED  28 

C64C3 

SCR2 

0000000007 

06522 

00000 

OOOC7 

K ( 3 )  FOR  BITS  00 

C6404 

OOOOCOOO6 

06523 

00000 

00006 

K ( 2 )  01 

C64C5 

COOOCOOOQ5 

06524 

00000 

000C5 

K  C 1 1  10 
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.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CARDS 

LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6406 

C000C00004 

06525 

00000 

000C4 

K ( 0 )  11 

C6407 

SCR3 

6371733412 

06526 

63717 

33412 

7  EXP ( -1/2 ) +2* 10  EX  P  ( - 

0  29 

C6410 

6273720435 

06527 

62737 

20435 

6  EXP ( -1/2 ) 

C6411 

6154066433 

06530 

61540 

66433 

5  EXPI-1/2) 

C6412 

5777777776 

06531 

57777 

77776 

4  EXPI-1/2) 

C6413 

SCR4 

5671230431 

06532 

56712 

30431 

(2/7)  EXP I  1/ 2 ) 

C6414 

5541454270 

06533 

55414 

54270 

(1/3)  EXP ( 1/ 2 ) 

• 

C6415 

5360566233 

06534 

53605 

66233 

(2/5)  EXP ( 1/ 2 ) 

• 

C6416 

5127660627 

06535 

51276 

60627 

(1/2)  EXP ( 1/2 ) 

• 

C6417 

ATAN 

ENTRY 

06536 

61000 

00000 

C6420 

ENT 

Q*L(B4) 

06537 

10014 

OOOCO 

C 

C6421 

COM 

Q*4000 1* YMQRE 

06540 

04300 

40001 

LESS  THAN  40001 

C6422 

JP 

ERR  16 

06541 

61000 

06772 

NO-ARGUMENT  TOO  LARGE 

C6423 

COM 

Q*37745*YLESS 

06542 

04200 

37745 

C6424 

JP 

RZERO 

06543 

61000 

0644  1 

C6425 

ATAN1 

ENT 

A*40000 

06544 

11000 

400C0 

C6426 

STR 

A-Q*W ( WS5 ) 

06545 

33030 

06427 

TO  A  SET  UP  SHIFT 

C6427 

ENT 

Q*W ( 1+B4 ) 

06546 

10034 

00001 

MANTISSA 

C6430 

RSH 

Q*  A 

06547 

01070 

00000 

CONVERT  TO  FIXED  POINT 

C6431 

STR 

Q*W(WS5) 

06  550 

14030 

06427 

M 

C6432 

MUL 

W ( WS5 ) 

06551 

22030 

06427 

M2 

C6433 

RSH 

AQ*33 

06552 

03000 

00033 

C6434 

STR 

Q* W ( WS6 ) 

06553 

14030 

06430 

M2 

C6435 

ENT 

B5*0 

06  5  54 

12500 

OOOCO 

C6436 

ENT 

Q*W( ATAN5) 

06555 

10030 

06610 

C6437 

ATAN2 

MUL 

WIWS6) 

06556 

22030 

06430 

HASTINGS  CONSTANT 

C6440 

RSH 

AQ*  35 

06557 

03000 

00035 

TO  Q 

C6441 

ADD 

Q*W( ATAN5+B5+1) 

06560 

26035 

06611 

• 

C6442 

BSK 

B5*4 

06561 

71500 

00004 

• 

C6443 

JP 

AT  AN2 

06562 

61000 

06556 

• 

C6444 

MUL 

W(WS5) 

06563 

22030 

06427 

M 

C6445 

RSH 

AQ*  34 

06564 

03000 

00034 

C6446 

JP 

AT  AN3*  QNEG 

06565 

60300 

06577 

C6447 

RPT 

36 

06566 

70000 

00036 

POS  RESULT 

C6450 

LSH 

Q* 1*QNEG 

06567 

05300 

00001 

C6451 

JP 

RZERO 

06570 

61000 

06441 

C6452 

ENT 

A*37743*B7 

06571 

11007 

37743 

C6453 

STR 

A  *W  ( B6 ) 

06572 

15036 

00000 

OF  RESULT 

C6454 

ENT 

A  *0 

06573 

11000 

OOOCO 

CLEAR 

C6455 

LSH 

AQ*34 

06574 

07000 

00034 

C6456 

STR 

A *W  ( 1  +  B6) 

06575 

15036 

000C1 

MANTISSA  OF  RESULT 

• 

C6457 

EXIT 

06576 

61010 

06536 

• 

C6460 

ATAN3 

RPT 

36 

06577 

70000 

00036 

NEG  RESULT 

• 

C6461 

LSH 

Q*1*QP0S 

06600 

05200 

00001 

C6462 

JP 

RZERO 

06601 

61000 

06441 

C6463 

ENT 

A*37743+B7 

06602 

11007 

37743 

C6464 

STR 

A*W ( B6 ) 

06603 

15036 

00000 

OF  RESULT 

C6465 

ENT 

A*  3 

06604 

11000 

00003 

NEG  SIGN 

C6466 

LSH 

AQ*  34 

06605 

07000 

00034 

C6467 

STR 

A*W( 1  +  B6) 

06606 

15036 

00001 

MANTISSA  FOR  RESULT 

C6470 

EXIT 

06607 

61010 

06536 

C6471 

ATAN5 

77477  75334 

06610 

77477 

75334 

K  11 

SCALE 


.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUlLKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

C6472 

01536  53004 

06611 

01536 

53004 

K9 

• 

C6473 

74214  27222 

06612 

74214 

27222 

K7 

• 

C6474 

06143  01016 

06613 

06143 

01016 

K5 

• 

C6475 

65266  23005 

06614 

65266 

230C5 

K3 

C  6476 

37777  50120 

06615 

37777 

50120 

K1 

C6477  EXP 

ENTRY 

06616 

61000 

ooooo 

C6500 

ENT 

Q*W(  UB4MQP0S 

06617 

10234 

00001 

MANTISSA 

C65C1 

JP 

EXP2 

06620 

61000 

06633 

C6502 

ENT 

A*L ( B4 ) 

06621 

11014 

OOOOO 

CHARACTERISTIC 

C6503 

COM 

A * 40034* Y MORE 

06622 

04700 

40034 

C  LESS  THAN  40034 

C6504 

JP 

ERR  17 

06623 

61000 

06777 

NO-OVERFLOW 

C6505 

COM 

A* 37744 *Y MORE 

06624 

04700 

37744 

C  LESS  THAN  37744 

• 

C6506 

JP 

EXP4 

06625 

61000 

06640 

NO 

• 

C6507  EXP1 

ENT 

A*4000 1 

06626 

11000 

400C1 

• 

C6510 

STR 

A*W ( B6 ) 

06627 

15036 

OOOOO 

RESULT  IS 

• 

C6511 

ENT 

A*W ( EX  P 10 ) 

06630 

11030 

06675 

ONE 

C6512 

STR 

A*W  (  1  +  B*6) 

06631 

15036 

00001 

C6513 

EXIT 

06632 

61010 

06616 

C6514  EXP2 

ENT 

A*L(B4) 

06633 

11014 

OOOOO 

C6515 

COM 

A*40034*YM0RE 

06634 

04700 

40034 

C6516 

JP 

RZERO 

06635 

61000 

06441 

• 

C6517  EXP3 

COM 

A*37744*YLESS 

06636 

04600 

37744 

C  LESS  THAN  37744 

• 

C6520 

JP 

EX  P 1 

06637 

61000 

06626 

YES 

• 

C6521  EXP4 

MUL 

WIEXP10+1 ) 

06640 

22030 

06676 

L0GE1/LN10 

C6522 

STR 

A*W ( WS 12 ) 

06641 

15030 

06434 

• 

C6523 

ENT 

A *400 3 2 

06642 

11000 

40032 

• 

C6524 

SUB 

A*W(B4) 

06643 

21034 

OOOOO 

CHARACTERISTIC 

• 

C6525 

STR 

A*W  { WS 13 ) 

06644 

15030 

06435 

SET  UP  SHIFT 

C6526 

ENT 

A*W ( WS 12 ) 

06645 

11030 

06434 

• 

C6527 

RSH 

AQ*W(WS13)*AP0S 

06646 

03630 

06435 

CONVERT  TO  FIXED  POINT 

• 

C6530 

JP 

EXP7 

06647 

61000 

06672 

NEG  NUMBER 

• 

C6531 

ADD 

A*4000 1 

06650 

20000 

40001 

C6532 

STR 

A  *W ( B6  ) 

06651 

15036 

OOOOO 

C6533  EXP5 

ENT 

A*0 

06652 

11000 

OOOOO 

C6534 

RSH 

AQ*  1 

06653 

03000 

00001 

C6535 

MUL 

W ( EXP10  +  2  ) 

06654 

22030 

06677 

C6536 

RSH 

AQ*35 

06655 

03000 

00035 

C6537 

STR 

Q*W ( WS 14 ) 

06656 

14030 

06436 

C6540 

ENT 

B5*0 

06657 

12500 

OOOOO 

CLEAR 

C6541 

ENT 

Q*W ( EX  P 10*  3 ) 

06660 

10030 

06700 

K6 

C6542  EXP6 

MUL 

W ( WS 14 ) 

06661 

22030 

06436 

K6X 

C6543 

RSH 

AQ*34 

06662 

03000 

00034 

C6544 

ADD 

Q*W(EXP10*B5*4) 

06663 

26035 

06701 

C6545 

BSK 

B5*5 

06664 

71500 

00005 

C6546 

JP 

EXP6 

06665 

61000 

06661 

C6547 

ENT 

A*0 

06666 

11000 

OOOOO 

C6550 

LSH 

AQ*35 

06667 

07000 

00035 

C6551 

STR 

A*W (  1  +  B6 ) 

06670 

15036 

00001 

RESULT 

C6552 

EXIT 

06671 

61010 

06616 

C6553  EXP7 

ADD 

A*40000 

06672 

20000 

40000 

C6554 

STR 

A  *W ( B6  ) 

06673 

15036 

OOOOO 

C6555 

JP 

EXP5 

06674 

61000 

06652 

C6556  EXP10 

10000  0 

06675 

10000 

OOOOO 

MANTISSA  OF  1 

120 


satel 


CARDS  LI  ID  LABEL 

.  C6625 

.  C6626  ERR11 

.  C6627  EPR12 

.  C6630 

.  C6631  ERR13 

.  C6632  EPR14 

.  C6633 

.  C6634  EPR15 

.  C6635  ERRI6 

.  C6636 

.  C6637  ERR16A 

.  C6640 

.  C6641  EPR10 

.  C6642  EPR17 

.  C6643 

.  C6644  EPP20 

.  C6645 

.  C6646  EPR21 

.  C6647 

.  C6650  EPR22 

.  C6651 

.  C6652  EPR23 

.  C6653 

.  C6654  EPR24 

.  C6655 

.  C6656  EPR25 

.  C6657 

.  C6660  EPR26 

.  C6661 

.  C6662  EPR27 

.  C6663 

.  C6664  EPR40 

C6665 

.  C6666  LERR 

.  C6667 

.  C6670 

.  C667I 

.  C6672 

.  C6673  EPR2 

.  C6674  EFR3 

.  C6675 

.  C6676  EPR4 

.  C6677  EPR5 

.  C67C0 

.  C67C1  EPR6 

.  C67C2  EPR7 

.  C67C3 

.  C67C4  EPR30 

.  C67C5 

.  C67C6  EPR31 

.  C67C7 

.  C67I0  ERR32 

.  C6711 


TA  STATEMENT 

1321050505 

ENT  A*ERR20*SKIP 

ENT  A*ERR2 1 

JP  AERR1 

ENT  A*ERR22*SKIP 

ENT  A*ERR23 

JP  AERR1 

ENT  A*  ERR  24*SK I P 

ENT  A*ERR  25 

JP  AERR1 

ENT  A*ERR40 

JP  AERR1 

ENT  A*ERR27*SK I P 

ENT  A*ERR26 

JP  AERR1 

1621210530 

1 23 1C52324 

3010062112 

C524132105 

3026270523 

1214052324 

3016230524 

1321050505 

10243  00524 

1321050505 

0631062305 

2413210505 

1235250524 

1321050505 

2432312532 

3105241321 

2 1 241 A  1 205 

1227272427 

STR  A*L( LERR+3 ) 

RPL  Y  + 1  *L ( POW 14 ) 

STR  A*L(FLTPT) 

ENT  A*0 

JP  AERR1 

ENT  A*ERR30*SK IP 

ENT  A*ERR3 1 

IP  I  PRO 

ENT  A»ERR32*SKIP 
ENT  A»ERR33 

IP  |  CDR 

ENT  A*  ERR  34*SK I P 

ENT  A*ERR  35 

JP  LERR 

2324310524 

103 1C50505 

2324053106 

C705C50505 

2324310511 

1210050505 


OUTPUT  NO.  210 
MCQUILKIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

06762 

13210 

50505 

06763 

11100 

070C1 

06764 

11000 

07003 

06765 

61000 

06707 

06766 

11100 

07005 

06767 

11000 

07007 

06770 

61000 

06707 

06771 

11100 

07011 

06772 

11000 

07013 

06773 

61000 

06707 

06774 

11000 

07021 

LOG 

ERROR 

06775 

61000 

06707 

06776 

11100 

07017 

06777 

11000 

07015 

07000 

61000 

06707 

07001 

16212 

10530 

ILL 

SET  Nl 

07002 

12310 

52324 

07003 

30100 

62112 

SCALE  OFL 

07004 

05241 

321C5 

07005 

30262 

70523 

07006 

12140 

52324 

07007 

30162 

30524 

07010 

13210 

50505 

07011 

10243 

00524 

07012 

13210 

50505 

07013 

06310 

62305 

07014 

24132 

10505 

07015 

12352 

50524 

07016 

13210 

505C5 

07017 

24323 

12532 

07020 

31052 

41321 

07021 

21241 

41205 

07022 

12272 

72427 

07023 

15010 

07026 

07024 

36010 

07057 

07025 

15010 

06155 

07026 

11000 

00000 

07027 

61000 

06707 

07030 

11100 

07041 

07U31 

11000 

07043 

07032 

61000 

07023 

07033 

11100 

07045 

07034 

11000 

07047 

07035 

61000 

07023 

07036 

11100 

07051 

07037 

11000 

07053 

07040 

61000 

07023 

07041 

23243 

10524 

07042 

10310 

50505 

07043 

23240 

53106 

NO 

r  ab 

07044 

07050 

50505 

07045 

23243 

10511 

NOT 

DEC 

07046 

12100 

50505 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL  KlN*7/l/65 


CARDS 

LI  ID  L/BEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6557 

27052  43542 

06676 

27052 

43542 

L0GE1/LN10 

C6560 

11504  04651 

06677 

11504 

04651 

PROGRAM  CONSTANT 

C6561 

C0056  24630 

06700 

00056 

24630 

K 

C6562 

00155  74340 

06701 

00155 

74340 

K5 

C6563 

01152  16565 

06702 

01152 

16565 

K4 

C6564 

04035  41132 

06703 

04035 

41132 

K3 

C6565 

12466  00553 

06704 

12466 

00553 

K2 

C6566 

22327  26210 

06705 

22327 

26210 

Kl 

C6567 

20000  0 

06706 

20000 

00000 

FIXED  POINT  1 

C6570  AERR1 

STR  A*L ( AERR2+2 ) 

06707 

15010 

06731 

C6571 

CONSOLE  HOLD 

06710 

64120 

00142 

06711 

03000 

OOOCO 

. 

C6572 

TYPET  SCRSSLFSSLFSFP  ERROR SCR SADDR  SS06712 

61000 

06717 

PSSSPS 

06713 

04030 

31325 

06714 

05122 

72724 

06715 

27040 

61111 

06716 

27050 

50000 

06717 

64120 

00142 

06720 

00000 

00022 

06721 

00000 

06713 

• 

C6573 

ENT  Q*L ( FL  TPT  1 

06722 

10010 

06155 

• 

C6574 

SUB  Q* 1 

06723 

27000 

00001 

• 

C6575 

TYPEC  Q*SSPS*SSPS*SSPS*$SPS 

06724 

64110 

00141 

06725 

00000 

OOOCO 

06726 

77050 

5  0505 

• 

C6576  AERR2 

TYPE  10D*AERR2 

06727 

64120 

00142 

06730 

00000 

00012 

06731 

00000 

06727 

• 

C6577 

ENT  B4*L(FP4) 

06732 

12410 

06165 

• 

C66G0 

ENT  B5*L ( FP5 ) 

06733 

12510 

06166 

• 

C66C1 

ENT  B6*L ( FP6 ) 

06734 

12610 

06167 

• 

C66C2 

ENT  B7*L ( FP7 ) 

06735 

12710 

06170 

• 

C6603 

CL  A 

06736 

11000 

OOOCO 

• 

C66C4 

CL  Q 

06737 

10000 

OOOCO 

• 

C6605 

CONSOLE  RELEASE 

06740 

64120 

00142 

06741 

04000 

OOOCO 

C6606  FPSTCP 

REX  STOPRUN 

06742 

64120 

00142 

06743 

05000 

00000 

C6607  E  PR 

ENT  B7*L ( FP7 ) 

06744 

12710 

06170 

C6610 

ENT  A*L(AERR>B7) 

06745 

11017 

06747 

C6611 

JP  AERR 1 

06746 

61000 

06707 

C6612  AERR 

0  ADOFL 

06747 

00000 

06753 

C6613 

0  SBOFL 

06750 

00000 

06755 

C6614 

0  MLOFL 

06751 

00000 

06757 

C6615 

0  DVOFL 

06752 

00000 

06761 

C6616  ACOFL 

0611110524 

06753 

06111 

10524 

• 

C6617 

1321C50505 

06754 

13210 

50505 

• 

C6620  SEOFL 

3032C70524 

06755 

30320 

70524 

• 

C6621 

1 32 1C50505 

06756 

13210 

50505 

• 

C6622  MLOFL 

2232210524 

06757 

22322 

10524 

• 

C6623 

1321050505 

06760 

13210 

50505 

• 

C6624  DVCFL 

1116330524 

06761 

11163 

30524 

SATEL 


SPURT 


CARDS 

Li  ID  LABEL 

TA  STATEMENT 

C6712  ERR33 

2324051112 

C6713 

1005253105 

C6714  EPR34 

2706231412 

C6715 

C512272705 

C6716  ERR35 

1223110510 

C6717 

2411120505 

• 

C6720  STARTREAD 

ENTRY 

• 

C6721 

EXIT 

• 

C6722  PCW14 

NO-OP 

C6723  ASIN 

ENTRY 

C6724 

ENT 

A*4000 1 

C6725 

SUB 

A*L(B4  )*APO 

C6726 

JP 

ERR  16 

C6727 

ENT 

B5*A 

C6730 

JP 

AS  IN4*  AZERO 

C6731 

SUB 

A* 1* ANOT 

C6732 

JP 

ASIN3 

• 

C6733 

COM 

A* 14D*YM0RE 

• 

C6734 

ENT 

A*0*SKIP 

• 

C6735  HERE 

ENT 

A*W<  1  +  B4 )  *SI 

C6736 

JP 

ASIN2 

C6737 

LSH 

A*  1 

C6740 

STR 

A*W(HS  ) 

• 

C6  741 

RSH 

AQ*29D*B5 

# 

C6742 

STR 

Q*W(HS+1) 

• 

C6743 

MUL 

W( WS+1  ) 

C6744 

RSH 

AQ*29D 

C6745  ASIN1 

STR 

A*W(WS+1) 

C6746 

MUL 

W( ASINK) 

C6747 

RSH 

AQ*29D 

C6750 

ENT 

Y+Q*H( ASINK 

C6751 

STR 

A*W( WS+2) 

C6752 

ENT 

A*W ( AS  INK* 1 

C6753 

STR 

A  +  Q*Q 

• 

C6754 

MUL 

A 

• 

C6755 

RSH 

AQ  *29D 

• 

C6756 

ADD 

Q*W( AS  INK  +  2 

C6757 

STR 

Q*W ( WS  +  3 ) 

C6760 

MUL 

W ( WS  +  2  ) 

C6761 

RSH 

AQ*29D 

C6762 

ENT 

Y  +  Q*W  (ASINK- 

C6763 

SUB 

Q*W ( WS  -fr3 ) 

C6764 

ADD 

Q*W { AS  INK  +  5 

C6765 

STR 

A*W(WS+3) 

C6766 

MUL 

W(WS+3) 

C6767 

RSH 

AQ*29D 

• 

C6770 

ADD 

Q*W( ASINK+6 

• 

C6771 

MUL 

W(  WS  ) 

# 

C6772 

RSH 

AQ*27D+B5 

OUTPUT  NO.  210 
MCQUILKIN*7/l/65 


LOC 

F  JKB 

Y 

NOTES 

07047 

23240 

51112 

NO  DEC  PT 

07050 

10052 

53105 

07051 

27062 

31412 

RANGE  ERR 

07052 

05122 

72705 

07053 

12231 

10510 

END  CODE 

07054 

24111 

20505 

07055 

61000 

00000 

07056 

61010 

07055 

07057 

12000 

00000 

07060 

61000 

00000 

07061 

11000 

40001 

BIASED  CHAR  EQUALS  1 

07062 

21614 

00000 

1-C,  TEST  C  GREATER  THAN  1 

07063 

61000 

06772 

YES  ERROR 

07064 

12570 

00000 

B5  EQUALS  1-C  TEST  C  EQUALS  1 

07065 

60400 

07227 

07066 

21500 

00001 

-C  TEST  C  EQUALS  0 

07067 

61000 

07150 

YES  TO  TEST  ABS(M)  EQUALS  1/2 

07070 

04700 

00016 

07071 

11100 

00000 

07072 

11134 

00001 

07073 

61000 

07144 

07074 

06000 

00001 

SCALED  29 

07075 

15030 

06422 

SAVED 

07076 

03005 

00035 

M*2**C  EQUALS  Y  SCALED  29  EQUA 
LS  X 

07077 

14030 

06423 

07100 

22030 

06423 

07101 

03000 

00035 

SCALED  29  0  IN  A 

07102 

15030 

0642  3 

STORE  P 

07103 

22030 

07246 

K*X**2 

07104 

03000 

00035 

SCALED  29  EQUALS  Z 

07105 

30030 

07251 

Z  +  C 

07106 

15030 

06424 

SAVED 

07107 

11030 

07247 

A 

07110 

32000 

00000 

♦  Z 

07111 

22070 

00000 

( A+Z ) **2 

07112 

03000 

0003  5 

SCALED  29 

07113 

26030 

07250 

♦B  EQUALS  U 

07114 

14030 

06425 

SAVE  U 

07115 

22030 

06424 

U*(Z+C) 

07116 

03000 

0003  5 

SCALED  29  EQUALS  V 

07117 

30030 

07252 

V  +  D 

07120 

27030 

06425 

V-D 

07121 

26030 

07253 

♦  E 

07122 

15030 

06425 

07123 

22030 

06425 

07124 

03000 

00035 

SCALED  29 

07125 

26030 

07254 

♦F  EQUALS  ARCSIN  X/2X 

07126 

22030 

06422 

*M  EQUALS  (1/21  ARCS  I N  X  SCALED 
28+C 

07127 

03005 

00033 

* ( 4*2**C )  EQUALS  2ARCSIN  X  SC 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUILKIN*7/l/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C6773 

ENT 

A*W(WS+1)*AZER0 

07130 

11430 

06423 

28 

P  SCALEO  28  SKIP  IF  P  EQUALS  0 

C6774 

STR 

A+G*Q*SK  I  P 

07131 

32100 

00000 

P-2* ARCS  IN  X  EQUALS  ARCSIN  Y 

C6775 

RSH 

Q*  1 

07132 

01000 

00001 

ARCSIN  Y  SCALED  28 

C6776 

STR 

Q* A*QPOS 

07133 

14240 

00000 

TEST  M  LESS  THAN  0 

C6777 

STR 

A*  A 

07134 

15040 

00000 

YES  FORM  ABS ( H ) 

C7COO 

RPT 

29D 

07135 

70000 

00035 

NORMALIZE 

C7CC1 

LSH 

A* 1«ANEG 

07136 

06700 

00001 

SCALEO  30 

• 

C7C02 

JP 

ASIN2+2 

07137 

61000 

07146 

M  EQUALS  0 

• 

C7C03 

LSH 

A*  29D 

07140 

06000 

00035 

PRESERVE  SIGN 

• 

C7C04 

RSH 

A*  1*QP0S 

07141 

02200 

00001 

M  SCALED  28  TEST  M  LESS  THAN  0 

C7CC5 

STR 

A*  A 

07142 

15040 

00000 

YES  -ABS(M) 

• 

C7C06 

ENT 

Q*37745+B7*SKIP 

07143 

10107 

37745 

C  EQUALS  (27-SF)-27+BIAS 

• 

C7C07  ASIN2 

ENT 

Q*  A 

07144 

1007  0 

00000 

C  EQUALS  0 

• 

C7C10 

STR 

Q*L(B6) 

07145 

14016 

OOOCO 

STORE  ARCSIN  Y 

• 

C7011 

STR 

A*W( 1+&6) 

07146 

15036 

OOOOl 

AS  C,M 

• 

C7C12 

EXIT 

07147 

61010 

0706  0 

• 

C7013  ASIN3 

ENT 

Q*W  (  UB4) 

07150 

10034 

OOOOl 

M  EQUALS  Y  SCALED  28 

C7C14 

STR 

Q*A*QNEG 

07151 

14340 

00000 

FORM 

C7015 

STR 

A*  A 

07152 

15040 

00000 

-ABS(Y) 

C7016 

ADO 

A«W( ASINP+2)*AN0T 

07153 

20530 

07257 

l/2-ABS(Y)  TEST  ZERO 

C7017 

JP 

ASIN5 

07154 

61000 

07236 

YES  USE  (PI)/6 

• 

C7C20 

ADD 

A*W ( AS  INP+2)*QP0S 

07155 

20230 

07257 

(l-ABS(Y) )/2  SCALED  29 

• 

C7021 

STR 

A*CPW(WS+1)*SKIP 

07156 

15170 

06423 

STORE  X**2  AND 

• 

C7022 

STR 

A*W(WS+1) 

07157 

15030 

06423 

SAVE  SIGN  OF  Y 

C7C23 

RPT 

290* 

07160 

70000 

0003  5 

NORMALIZE 

C7024 

LSH 

A*  1* ANEG 

07161 

06700 

OOOOl 

SCALED  30 

C  7025 

JP 

ASIN5-1 

07162 

61000 

07235 

ABS ( X )  LESS  THAN  2**-13  USE  (P 
I)/2 

C7C26 

ENT 

Q*  A 

07163 

10070 

00000 

SAVE  X**2 

C7027 

STR 

B7  *  A 

07164 

16740 

00000 

26-SF 

C7030 

SUB 

A*30D 

07165 

21000 

00036 

- ( 2+SF )  EQUALS  -(2-20 

C7031 

LSH 

A*29D* ANEG 

07166 

06700 

0003  5 

-(1-0  TEST  SF  EVEN 

• 

C7032 

LSH 

Q*  27D*SK I P 

07167 

05100 

0003  3 

NO  (1/4)*X**2  SCALED  29EQUALS 
T/2 

• 

C7C33 

LSH 

Q*  28D 

07170 

05000 

rt\ 

o 

O 

o 

YES  ( 1/2 ) *X**2  SCALED  29  EQUAL 
S  T/2 

• 

C7034 

STR 

A*  A 

07171 

15040 

00000 

1-C 

• 

C7C35 

ENT 

B5  »  A 

07172 

12570 

00000 

TO  B5 

• 

C7C36 

STR 

Q*W( WS  +2 ) 

07173 

14030 

06424 

SAVE  T/2 

C7C37 

MUL 

W( ASINQ) 

07174 

22030 

07261 

A( T/2 ) 

C7040 

RSH 

AQ*29D 

07175 

03000 

0003  5 

SCALED  29 

C  704 1 

ADD 

Q*Wf ASINQ+l) 

07176 

26030 

07262 

♦ ( B/2 ) 

C7C42 

MUL 

W(WS^2) 

07177 

22030 

06424 

* ( T/2 ) 

C7C43 

RSH 

AQ*29D 

07200 

03000 

0003  5 

SCALED  29  0  IN  A-REG 

C7C44 

ADD 

Q*W  ( AS INQ+2 ) 

07201 

26030 

07263 

♦(C/4) 

C7C45 

STR 

Q*W(WS) 

07202 

14030 

06422 

EQUALS  (T**l/2)/4  APPROX  EQUA 
LS  R 1 

C7C46 

ENT 

Q*W( WS+2) 

07203 

10030 

06424 

T/2 

C7C47 

LSH 

AQ*26D 

07204 

07000 

0003  2 

*(1/8)  EQUALS  T/16  SCALED  58 

C7C50 

CIV 

W(  WS) 

07205 

23030 

06422 

(T/16)/R1 

C7C51 

ADD 

0*W ( HS  ) 

07206 

26030 

06422 

♦  R 1 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUIL  KI N*  7/ 1 /65 


CARDS 

LI  10  L  ^ EEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C7C52 

RSH 

Q  *  1 

07207 

01000 

OOOC1 

*(1/2)  EQUALS  R2 

C7C53 

STR 

Q  *W ( WS ) 

07210 

14030 

06422 

SAVE  R2 

C7054 

ENT 

A*W( WS+2 I 

07211 

11030 

06424 

ONE  MORE 

C7055 

CL 

0 

07212 

10000 

OOOCO 

ITERATION 

C7C56 

RSH 

AQ*4 

07213 

03000 

000C4 

YIELDS 

C7C57 

CIV 

WCWS) 

07214 

23030 

06422 

(T**l/2)/2 

C7C60 

ADD 

Q  *W ( WS ) 

07215 

26030 

06422 

*2 

C7061 

LSH 

AQ*31D 

07216 

07000 

00037 

EQUALS  T ** 1/2  SCALED  29  EQUAL 

S  ABS(M) 

C7062 

ENT 

Q*W ( WS ♦  1 ) *QNEG 

07217 

10330 

06423 

X **2  TEST  SIGN 

C7063 

STR 

A*CPW(WS)*$KIP 

07220 

15170 

06422 

STORE  -M 

C7064 

STR 

A*W( WS I 

07221 

15030 

06422 

STORE  -M 

C  7065 

ENT 

A*W(AS  INP  +  1 )  *QPOS 

07222 

11230 

07256 

(PII/2  SCALED  28 

C7C66 

STR 

C*Q*SK  IP 

07223 

14100 

00000 

CHANGE  SIGN 

• 

C7C67 

JP 

AS  IN  1 

07224 

61000 

07102 

TO  CALC  FOR  Y  GREATER  .5 

• 

C7C70 

STR 

A*  A 

07225 

15040 

OOOCO 

-IPD/2 

• 

C7C71 

JP 

AS  IN  1 

07226 

61000 

07102 

TO  CALC  FOR  Y  LESS  THAN  -.5 

C7072  ASIN4 

ENT 

Q*W ( 1  +  B4 ) 

07227 

10034 

00001 

M 

C7C73 

STR 

Q*A*QNEG 

07230 

14340 

OOOCO 

FORM 

C7C74 

STR 

A*  A 

07231 

15040 

OOOCO 

-ABS(M) 

• 

C7075 

ADD 

A*W( ASINP*2)*AZER0 

07232 

20430 

07257 

♦(1/2)  TEST  AZERO 

• 

C  7076 

JP 

ERR  16 

07233 

61000 

06772 

NO  ERROR 

• 

C7077 

ENT 

65*4000 1 

07234 

12500 

40001 

C  FOR  (PI ) / 2 

• 

C71C0 

JP 

ASIN5+1 

07235 

61000 

07237 

C71C1  ASIN5 

ENT 

65*40000 

07236 

12500 

40000 

C  FOR  (PI1/6 

C7102 

ENT 

A*W(ASINP-40000*B5)*QPOS 

07237 

11235 

47254 

(PI)/60R(PI)/2  TEST  M  LESS 

C7103 

STR 

A*  A 

07240 

15040 

OOOGO 

YES  -(PII/6  OR  -(PI )/2 

C71C4 

RSH 

A*  1 

07241 

02000 

00001 

M  SCALED  28 

C7105 

STR 

B5*Q 

07242 

16500 

00000 

C 

C7106 

STR 

Q*L( B6 ) 

07243 

14016 

00000 

STORE  ARCSIN  Y 

C71C7 

STR 

A*W ( 1+B6 ) 

07244 

15036 

00001 

AS  C  »  M 

C7110 

EXIT 

07245 

61010 

07060 

C71H  ASINK 

2041015167 

07246 

20410 

15167 

K 

C7112 

1070502075 

07247 

10705 

02075 

A 

C7113 

1507662270 

07250 

15076 

62270 

B 

C7114 

0125170245 

07251 

01251 

70245 

C 

C71L5 

0151206634 

07252 

01512 

06634 

0 

C7116 

3121124150 

07253 

31211 

24150 

E 

C7117 

1720500666 

07254 

17205 

00666 

F 

C7120  ASINP 

2060251072 

07255 

20602 

51072 

(PII/6  SCALED  29 

C7121 

3110375526 

07256 

31103 

75526 

(PII/2  SCALED  28 

C7122 

1000000000 

07257 

10000 

00000 

1/2  SCALED  28 

• 

C7123 

1444176653 

07260 

14441 

76653 

(PII/2  SCALED  27 

• 

C7124  ASINQ 

6570132340 

07261 

65701 

32340 

-A  SCALED  29 

• 

C7125 

2065211354 

07262 

20652 

11354 

B/2  SCALED  29 

• 

C7126 

0204600545 

07263 

02046 

00545 

C/4  SCALED  29 

• 

C7127  ACOS 

ENTRY 

07264 

61000 

OOOCO 

• 

C7130 

R  JP 

ASIN 

07265 

65000 

07060 

GET  ARCSIN  Y 

C7131 

ENT 

A  *4000 1 

07266 

11000 

40001 

BIASED  CHARACTERISTIC 

C7132 

SUB 

A*L(B6) 

07267 

21016 

OOOCO 

1-C 

C7133 

ENT 

Q*W ( 1*B6 ) 

07270 

10036 

000C1 

M  SCALED  28 

C7134 

RSH 

Q*A 

07271 

01070 

OOOCO 

ARCSIN  Y  SCALED  27 

125 


SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKIN*7/l/65 


CARDS 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C7135 

SUB 

Q*W( AS  INP  +  3 ) *QNEG 

07272 

27730 

07260 

-(PI)/2  SCALED  27 

C  71 36 

JP 

AC0S1 

07273 

61000 

07303 

ARCOS  Y  EQUALS  0 

C7137 

RPT 

29D 

07274 

70000 

0003  5 

NORMALIZE  ( -ARCOS  Y) 

C7140 

LSH 

Q •  1*QP0S 

07275 

05200 

000C1 

WITH  26+C  IN  B7 

C7141 

JP 

AC0S1 

07276 

61000 

07303 

(ARCOS  Y  EQUALS  0) 

C7142 

LSH 

Q*  29D 

07277 

05000 

0003  5 

SAVE  SIGN  OF  -M 

C7143 

RSH 

Q  *  1 

07300 

01000 

00001 

AND  SCALE  28 

C  7144 

STR 

B7  *  A 

07301 

16740 

00000 

26  +  C 

C7145 

ADD 

A*37746*SKIP 

07302 

20100 

3  774  6 

♦BIAS-26  EQUALS  C 

C7146 

ACCS  1 

STR 

Q*Q 

07303 

14000 

OOOCO 

SET  FOR  C  EQUALS  0 

C7147 

STR 

A *L ( B6  ) 

07304 

15016 

00000 

STORE  ARCOS  Y 

C7150 

STR 

Q*CPW(  1+B6  ) 

07305 

14076 

000C1 

AS  C»M 

C7151 

EXIT 

07306 

61010 

07264 

C7152 

LCGE 

ENTRY 

07307 

61000 

00000 

LN(  Y )  IN  FLOATING  PT 

C7153 

ENT 

Q*W( 1  +  B4 ) 

07310 

10034 

00001 

MANT I SSAEQMEQQ 

C  7154 

COM 

Q*W(LOGER)*YMORE 

07311 

04330 

07420 

TEST  M  LESS1 

C7155 

JP 

ERR16A 

07312 

61000 

06774 

C7156 

ENT 

Y-Q*W(L0GER4l)*ANEG 

07313 

31730 

07421 

TEST  M  GREATER  1/2 

C7157 

JP 

L0GE1 

07314 

61000 

07343 

NOf T RY  M  EQ  1/2 

C7160 

ENT 

LP*W ( LOGER+2 ) 

07315 

40030 

07422 

GET  I 

C7161 

RSH 

A*  24D 

07316 

02000 

0003  0 

FOR  K( I) 

C7162 

ENT 

B5*A 

07317 

12570 

00000 

IN  TABLE 

C7163 

MUL 

W ( L0GEK+B5 ) 

07320 

22035 

07442 

K(  I)*Q 

C7164 

RSH 

AQ*  29D 

07321 

03000 

00035 

SCALED  27 

C7165 

SUB 

Q*W  (  LOGER ♦  1 ) 

07322 

27030 

07421 

-1  EQ  X 

C7166 

ENT 

Y ♦  Q*W ( LOGEA+2 ) 

07323 

30030 

07426 

X+C 

C7167 

STR 

A  *W ( WS ) 

07324 

15030 

06422 

SAVED 

C7170 

ENT 

Y  +  Q*W ( LOGE A  ) 

07325 

30030 

07424 

X  +  A 

C7171 

STR 

A*W(WS+1) 

07326 

15030 

06423 

C7172 

MUL 

W(WS  +  1  ) 

07327 

22030 

0642  3 

C7173 

RSH 

AQ*27D 

07330 

03000 

00033 

SCALED  27 

C7174 

STR 

Q*W ( WS+1 ) 

07331 

14030 

06423 

SAVED 

C7175 

ADD 

Q*W ( LOGEA+ 1 ) 

07332 

26030 

07425 

Z+B 

C7176 

MUL 

W(WS  ) 

07333 

22030 

06422 

*(X+C) 

C7177 

RSH 

AQ*27D 

07334 

03000 

0003  3 

SCALED  27  EQ  W 

C72CO 

ENT 

Y+Q*W( LOGEA+4) 

07335 

30030 

07430 

W>E 

C72C1 

ADD 

Q  *W ( LOGER  +  3 ) 

07336 

26030 

07423 

W-3 

C7202 

ADD 

Q *W ( LOGEA+3 ) 

07337 

26030 

07427 

♦ ( D+3 ) 

C72C3 

ADD 

Q*w(ws  +  n 

07340 

26030 

06423 

♦  Z 

C72C4 

STR 

a*w(ws  +  d 

07341 

15030 

06423 

C72C5 

MUL 

W( WS+1  )  *SK  I  P 

07342 

22130 

06423 

C7206 

LCGE1 

ENT 

Q*W(L0GEA+5)*SKIP 

07343 

10130 

07431 

LN  ( 2 ) 

C7207 

CIV 

W(L0GER*3)*SKIP 

07344 

23130 

07423 

(-1/6)  EQLN(X)-F*(-l/6) 

C7210 

STR 

Q*Q*SK  IP 

07345 

14100 

00000 

-LN(  2 ) 

C7211 

ADD 

Q*W(L0GEF+B5)*SK  IP 

07346 

26135 

07432 

♦F*(-1/L)-LN(K( I ) ) 

C7212 

JP 

ERR 16A* ANOT 

07347 

60500 

06774 

C7213 

STR 

Q»W( WS  ) 

07350 

14030 

06422 

EQ  LN(Q)  SCALED28 

C7214 

ENT 

A *L ( B4  ) 

07351 

11014 

OOOCO 

CHAR  EQ  P>2  *  *  14 

C7215 

SUB 

A  *40000* ANOT 

07352 

21500 

40000 

-BIASEQP.TEST  P  EQO 

C7216 

JP 

L0GE2 

07353 

61000 

07400 

YES  SKIP  CALC 

C7217 

ENT 

Q*A*QPOS 

07354 

10270 

OOOCO 

TEST  PLfcSSO 

C7220 

STR 

Q  *  0 

07355 

14000 

OOOCO 

USE  ABS(P) 

C7221 

RPT 

4  *  ADV 

07356 

70100 

00004 

RANGE  OF  P 

SATEL 


SPURT  OUTPUT  NO •  210 

MCQUlLKIN*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C7222 

COM  Q*L ( LOGES ) • YMORE 

07357 

04310 

07452 

TO  DETR  MIN  SHIFTS 

C7223 

JP  LOGEM 

07360 

61000 

07456 

C7224 

ENT  B5*U(L0GES+B7) 

07361 

12527 

07452 

FOR  SCALING 

C7225  LCGE1A 

MUL  W<L0GEA*5) 

07362 

22030 

07431 

C7226 

LSH  AQ*85 

07363 

07005 

00000 

SCALED  45  47  50  53  56 

C7227 

JP  LOGEM+2 

07364 

61000 

07460 

C7230 

RPT  L ( COUNT ) 

07365 

70010 

07467 

NORMALIZE 

C7231 

LSH  AQ* 1* ANEG 

07366 

07700 

00001 

PRODUCT 

C7232 

JP  ERR16A 

07367 

61000 

06774 

C7233 

LSH  AQ*  580 

07370 

07000 

00072 

RETURN  SIGN  SCALED  28 

C7234 

ENT  C*L(B4) 

07371 

10014 

00000 

P 

C7235 

COM  Q * 40000 *YL ESS 

07372 

04200 

40000 

TEST  P  LESS  0 

C  7236 

STR  A* A 

07373 

15040 

00000 

YES  -ABS ( P ) *  LN ( 2 ) 

C7237 

ENT  Q*W ( WS ) 

07374 

10030 

06422 

LN(Q) 

C7240 

ENT  B5*B7-26D 

07375 

12507 

77745 

C7241 

B JP  B5*L0GE2-1 

07376 

72500 

07377 

• 

C7242 

RSH  Q*B5*SK IP 

07377 

01105 

00000 

# 

C7243  LCGE2 

ENT  87*270 

07400 

12700 

00033 

SET  FOR  NO  SHIFTSIP  EQ  0) 

• 

C7244 

STR  A+Q*Q*QPOS 

07401 

32200 

OOOCO 

LN(Y) 

C7245 

STR  Q*Q 

07402 

14000 

00000 

A8S(LN(Y) ) 

• 

C7246 

JP  L0GE3* AZERO 

07403 

60400 

07414 

SKIP  IF  Y  EQ  1 

• 

C7247 

STR  B7  *W ( WS ) 

07404 

16730 

06422 

SAVE  FACTOR 

• 

C7250 

RPT  29C 

07405 

70000 

00035 

NORMALIZE 

• 

C7251 

LSH  Q* 1*QNEG 

07406 

05300 

00001 

A8S ( LN ( Y ) ) 

C7252 

JP  ERR16A 

07407 

61000 

06774 

C7253 

LSH  Q*  280*  APOS 

07410 

05600 

00034 

RETURN  SIGN  SCALED  28 

• 

C7254 

STR  Q*Q 

07411 

14000 

00000 

AS  MANTISSA 

• 

C7255 

ENT  A* W ( WS ) 

07412 

11030 

06422 

FORM 

• 

C7256 

ADD  A*377 12+67* SK IP 

07413 

20107 

37712 

CHARACTERISTIC 

C7257  LCGE3 

CL  Q 

07414 

10000 

00000 

C7260 

STR  A*L ( B6 ) 

07415 

15016 

00000 

STORE 

C7261 

STR  Q*W  ( 1+B6 ) 

07416 

14036 

00001 

result 

C7262 

EXIT 

07417 

61010 

07307 

C7263  LCGER 

2000000000 

07420 

20000 

00000 

1  SCALED  2B 

C7264 

lOOOCOOOOO 

07421 

10000 

00000 

1/2SCALED2B 

C7265 

0700000000 

07422 

07000 

00000 

MASK  FOR  I 

C  7  266 

4777777777 

07423 

47777 

77777 

-3  SCALED  27  -6  SCALED26 

C7267  LCGEA 

5770232732 

07424 

57702 

32732 

A  SCALED  27 

C7270 

3427564132 

07425 

34275 

64132 

R 

C7271 

C724376530 

07426 

07243 

76530 

C 

C7272 

4341324241 

07427 

43413 

24241 

D  +  3 

C7273 

5712656427 

07430 

57126 

56427 

E 

C7274 

1305620600 

07431 

13056 

20600 

LN ( 2 )  SCALED  28 

C7275  LCGEF 

5366557053 

07432 

53665 

57053 

C  7276 

5557247242 

07433 

55572 

47242 

1 

C7277 

5733156444 

07434 

57331 

56444 

2 

C73G0 

6074650576 

07435 

60746 

50576 

3 

C7301 

6225723447 

07436 

62257 

23447 

4 

C7302 

6347732466 

07437 

63477 

32466 

5 

C73C3 

6463606732 

07440 

64636 

06732 

6 

C73C4 

6572323037 

07441 

65723 

23037 

7 

C7305  LCGEK 

36QOCOOOOO 

07442 

36000 

OOOCO 

I  EQ  0  IN  K ( I )  EQ15/IB+I)  SCAL 
EO  28 

SATEL 


SPURT  OUTPUT  NO.  210 

MCQUILKIN*7/l/65 


to 


LI  10 

L  HULL 

▼  A  r  T  4  T  rurtiT 

1  H  o  1  M  f  tn  LM  1 

•  or 

LUV 

C-  1  ft/  o 

V 

HOTt  C 

C73C6 

3252525253 

07443 

32525 

25253 

1 

C73C7 

3000000000 

07444 

30000 

00000 

2 

C7310 

2564272135 

07445 

25642 

72135 

3 

C  7  31 1 

2400000000 

07446 

24000 

00000 

4 

C  73  1 2 

2235423542 

07447 

22354 

23542 

5 

C7313 

2111111111 

074  50 

21111 

11111 

6 

C  73 14 

2000000000 

07451 

20000 

00000 

7 

C7315 

LCGES 

C0023000 14 

07452 

0002  3 

00014 

UPPER  HALF 

C7316 

0002600135 

07453 

00026 

00135 

SHIFT  CONSTANTS 

C7317 

0003101343 

07454 

00031 

01343 

LOWER  HALF 

C7320 

C0034 13426 

07455 

00034 

13426 

CHAR  RANGE 

C7321 

LCGEM 

ENT  B5*17D 

07456 

12500 

00021 

C  732  2 

JP  10GEIA 

07457 

61000 

07362 

C7323 

STR  A*W( SAVE) 

07460 

15030 

07466 

C7324 

ENT  A  *  59D 

07461 

11000 

00073 

C7325 

SUB  A  *B5 

07462 

21005 

00000 

C7326 

STR  A*W ( COUNT ) 

07463 

15030 

07467 

C7327 

ENT  A*W(SAVE» 

07464 

11030 

07466 

C7330 

JP  L0GEIA+3 

07465 

61000 

07365 

C  7  33  1 

SAVE 

RESERVE  1 

07466 

00000 

00000 

C7332 

C  CUNT 

RESERVE  1 

07467 

00000 

00000 

C7333 

S  IN 

ENTRY 

07470 

61000 

00000 

C7334 

ENT  A *L ( B4  ) 

07471 

11014 

00000 

C7335 

COM  A * 37 76 7 *Y MORE 

07472 

04700 

37767 

TEST  EXPONENT  LES  2 EXP 

C7336 

JP  $  +  5 

07473 

61000 

07500 

NO 

C7337 

STR  A «L ( B6  ) 

07474 

15016 

00000 

SET  SIN(X)  EQ  X 

C7340 

ENT  A  *  W  (  B4  1 ) 

07475 

11034 

00001 

C7341 

STR  A*W(B6+1) 

07476 

15036 

00001 

C  7342 

EXIT 

07477 

61010 

07470 

C7343 

COM  A*40034*YM0RE 

07500 

04700 

40034 

C7344 

JP  $*ST0P 

07501 

61400 

07501 

EXPONENT  GEQ  2EXP27 

C7345 

CL  LISINC0S2+U 

07502 

16010 

07515 

C7346 

ENT  A  *W ( 1  +  B4 ) 

07503 

11034 

00001 

C7347 

SINCOSi 

STR  A*W(SINC0S20)*AP0S 

07504 

15630 

07575 

ARG  IN  SINC0S20 

C7350 

CP  A*AN0T 

07505 

15540 

00000 

C  735 1 

JP  SINC0S7+1*AZER0 

07506 

60400 

07563 

C7352 

ENT  Q*4003  3 

07507 

10000 

40033 

C7353 

SUB  Q*L(B4) 

07510 

27014 

00000 

C7354 

STR  C*L ( S INC0S2 ) 

07511 

14010 

07514 

C7355 

ENT  Q* A 

07512 

10070 

00000 

SARGS  TO  0 

C  73  56 

MUL  W ( S I NCOS  10 ) 

07513 

22030 

07566 

SARGS  TIMES  2/PI  IN  AQ 

C7357 

SINCCS2 

RSH  A0*0 

07514 

03000 

00000 

QTREV  IN  AQ  AT  B30 

C7360 

AOD  A  *0 

07515 

20000 

OOOCO 

ADD  1  IF  COSINE 

C  736 1 

SEL  CL  *X77774 

07516 

52040 

77774 

C  7362 

ENT  B7  * A 

07517 

12770 

00000 

QUADRANT  TO  B7 

C7363 

RSH  AQ*1 

07520 

03000 

00001 

FRAC  IN  Q  AT  B29 

C7364 

JP  SU  +  B7 

07521 

61007 

07522 

C7365 

JP  S*-3 

07522 

61000 

07525 

QUADRANT  I 

C7366 

CP  Q*  SK I P 

07523 

14100 

00000 

QUADRANT  II 

C7367 

CP  Q 

07524 

14000 

00000 

QUADRANT  III 

C  7370 

ENT  A*W(SINC0S20)*AP0S 

07525 

11630 

07575 

QUADRANT  IV,  ARG  TO  A 

C7371 

CP  Q 

07526 

14000 

00000 

-FRAC  IF  ARG  NEGATIVE 

C7372 

STR  Q*W ( S I NC0S20 ) 

07527 

14030 

07575 

STORE  X  EQ  ♦  OR  -  FRAC 

.  SPURT  OUTPUT  NO.  210 

SATEL  MCQUIL KIN* 7/1/65 


CAROS 

LI  10  L  ABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

C7373 

MUL 

W ( S I NC0S20 ) 

07530 

22030 

07575 

Y  EQ  X * *2  IN  AQ  AT  B58 

C  7374 

RSH 

AQ*  290 

07531 

03000 

0003  5 

Y  IN  Q  AT  B29 

C  7375 

STR 

Q*W(SINCOS20*1) 

07532 

14030 

07576 

C7376 

ENT 

87*3 

07533 

12  700 

00003 

C7377 

ENT 

Q*w‘  (  S  I NCOS  11  +  4) 

07534 

10030 

07574 

KSUB9  IN  Q  AT  B32 

C74C0 

MUL 

W ( S INC0S20* 1 ) 

07535 

22030 

07576 

Y  TIMES  POLY 

C74C1 

ENT 

Q*  A 

07536 

10070 

00000 

TO  Q 

C7402 

AOO 

Q*W(SINC0S11*B7) 

07537 

26037 

07570 

POLY  EQ  POLY+KSUBI 

C74C3 

BJP 

B7  *  $-3 

07540 

72  700 

07535 

C  7404 

MUL 

W ( S  INC0S20 ) 

07541 

22030 

07575 

X  *  POLY  IN  AQ  AT  B57 

C74C5 

JP 

S I NC0S6* ANEG 

07542 

60700 

07550 

C74C6 

CL 

L ( S INC0S6+6 ) 

07543 

16010 

07556 

C  7407 

RPT 

32D 

07544 

70000 

00040 

C  741 0 

LSH 

AQ* 1* ANEG 

07545 

07700 

00001 

C7411 

JP 

SINC0S7 

07546 

61000 

07562 

SIN(X)  EQ  0 

C  74 1 2 

JP 

$♦5 

07547 

61000 

07554 

C7413  SINCCS6 

CL 

CPL ( $+6 ) 

07550 

16050 

07556 

C7414 

RPT 

32D 

07551 

70000 

00040 

C7415 

LSH 

AQ* 1*  APOS 

07552 

07600 

00001 

C7416 

JP 

SI  NCOS  7 

07553 

61000 

07562 

SIN(X)  EQ  0 

C7417 

ENT 

Q*37743*B7 

07554 

10007 

37743 

C7420 

STR 

Q*W(B6) 

07555 

14036 

00000 

C7421 

ENT 

Q*0 

07556 

10000 

00000 

PUT  PROPER  SIGN  IN  Q 

C7422 

LSH 

AQ  *58  D 

07557 

07000 

00072 

SIN(X)  IN  A 

C  742  3 

STR 

A* W ( 1  +  B6  ) 

07560 

15036 

00001 

C  7424 

EXIT 

07561 

61010 

07470 

C7425  SINCCS7 

CL 

A 

07562 

11000 

00000 

SIN(X)  EQ  0 

C7426 

CL 

W(B6) 

07563 

16036 

OOOCO 

C7427 

CL 

W(  1 ♦B6  ) 

07564 

16036 

0000 1 

C7430 

EXIT 

07565 

61010 

07470 

C7431  SINCCS1C 

2427630155 

07566 

24276 

30155 

2/PI  AT  B29 

C7432 

1000C00000 

07567 

10000 

00000 

1.0  AT  B27 

C7433  SINCCS11 

3110375522 

07570 

31103 

75522 

K 1  AT  B28 

C  7434 

5325041750 

07571 

53250 

41750 

K3  AT  B29 

C7435 

0506321276 

07572 

05063 

21276 

K5  AT  B30 

C  7436 

7731554634 

07573 

77315 

54634 

K7  AT  B31 

C7437 

0002366574 

07574 

00023 

66574 

K9  AT  B32 

C7440  S  INCCS2C 

0 

07575 

00000 

OOOCO 

X  HERE  AT  B29 

C7441 

C 

07576 

00000 

00000 

Y  EQ  X**2  AT  B29 

C7442  CCS 

ENTRY 

07577 

61000 

OOOCO 

C7443 

ENT 

Q*L ( COS  1 

07600 

10010 

07577 

C  7444 

STR 

Q* L ( S I N  J 

07601 

14010 

07470 

SET  EXIT  ADDRESS 

C7445 

ENT 

A*L(B4) 

07602 

11014 

00000 

C7446 

COM 

A*37764*YLESS 

07603 

04600 

37764 

TEST  EXPONENT  GTR  2EXP-13 

C7447 

JP 

SI  NCOS  8 

07604 

61000 

07616 

NO,  SET  COS(X)  EQ  1.0 

C  7450 

COM 

A * 400 3 4* Y MORE 

07605 

04700 

40034 

TEST  EXPONENT  TOO  LARGE 

C7451 

JP 

$*STOP 

07606 

61400 

076C6 

YES 

C7452 

ENT 

A*  1 

07607 

11000 

00001 

C7453 

STR 

A*L( S INC0S2+ 1 ) 

07610 

15010 

07515 

C  7454 

ENT 

A*W( 1 +  B4 ) * A  POS 

07611 

11634 

00001 

C7455 

CP 

A*AZERO 

07612 

15440 

00000 

*ARG$  IN  A 

C7456 

JP 

S I NCOS  1* ANOT 

07613 

60500 

07504 

.  SPURT  OUTPUT  NO •  210 

SATEL  MCQUIL  KlN*7/l/65 


CARDS 

LI  ID 

L  £6EL 

TA  STATEMENT 

LOC 

c  ii/  o 

•  V#  l\U 

V 

NGTlo 

C7457 

ENT 

C*  A 

07614 

1  007  C 

00000 

C7460 

JP 

SINCOSI 

07615 

61000 

07504 

C7461 

SINC0S8 

ENT 

A  *4000 1 

07616 

11000 

40001 

COS(X) 

C7462 

STR 

A • W ( B6  ) 

07617 

15036 

00000 

C7463 

ENT 

A*W(SINCOSIO+I) 

07620 

11030 

07567 

C7464 

STR 

A  *W ( B6  +  1 ) 

07621 

15036 

00001 

C7465 

EXIT 

07622 

61010 

07577 

07623 

10040 

77777 

END  CF  LISTING 


to 

vO 


130 


SATEL 

LABEL 

LOC 

A  $$  $  $  $1  111 

00243 

ASSS  S$1 1 14 

06717 

AA 

03636 

ACQAZIM 

63071 

ACTUALT IPE 

63142 

ADSCN 

63416 

AERR2 

06727 

ALPHB 

03677 

ARCOFAZ IP 

63524 

ARCOFRA 

63530 

ASIN2 

07144 

ASIN5 

07236 

ASINQ 

07261 

ASINX11 

05717 

ASTRORA 

63105 

A  TAN2 

06556 

ATANX 

05552 

AZELOTIPE 

63532 

azipoffset 

63512 

AZIPADD 

63442 

BCDYSIZE 

63462 

BDAYNOW 

01267 

BLASTOFF 

63146 

CCCON 

63414 

CCRCT 

63420 

CCSAZEL 

63070 

CCSV11 

04626 

COUNT 

07467 

CB2 

05005 

CBCON 

05002 

CBFIX12 

04747 

CBRCOT 

04645 

CBSTART 

04700 

CBXT 

04772 

CELCOMPGP 

63424 

CELTIMEX 

03774 

CHCCR 

63422 

CRSSOFFSET 

63516 

DOPPADD 

63444 

DATOE 

00350 

OATCM 

00362 

DATORAP 

00324 

0ATAO2 

00043 

DATA032 

00075 

DATA051 

00143 

DATA061 

00207 

DATA072 

00227 

DATAE 

00360 

OAT  AEXB7 

00246 

OAT  A  I 

00346 

DATALOC 

00260 

SPURT  OUTPUT  NO.  211 


MCQUILKIN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

A$$$$i 11 12 

01326 

A$$$$$l 1 13 

07623 

ASSSSS  1115 

06713 

A2 

03715 

ACOS 

07264 

ACOS  1 

07303 

ACQELE V 

63075 

ACQUI 

63427 

ADOFL 

06753 

ADD 

06214 

AERR 

06747 

AERR1 

06707 

AESCN 

63417 

ALNGOFFSET 

63517 

ALPHSI N 

03701 

AQR 

06337 

ARCOFDEC 

63526 

ARCOFELEV 

63522 

ASIN 

07060 

ASIN1 

07102 

ASIN3 

07150 

ASIN4 

07227 

ASINK 

07246 

ASINP 

07255 

ASINX 

05657 

ASINX1 

05712 

AS  IN XC  ON 

04030 

ASTRODEC 

63106 

ATAN 

06536 

ATAN1 

06544 

ATAN3 

06577 

ATAN5 

06610 

AUPERE  QUA  T 

63341 

AVAL 

03706 

azelbxscan 

63500 

AZIM 

63053 

AZIMOUT 

64000 

AZIMOVER 

63325 

AZIMIN 

75  000 

AZMTHSCAN 

63501 

BDAY 

01266 

BDAY1 

01306 

BEL2PI 

06010 

BEL2PU 

06012 

BLASTCONV 

05066 

BVAL 

03707 

CONVCON 

05231 

CONVERTIME 

63135 

COS 

07577 

COSORI ENT 

63065 

C0SV1 

04633 

C0SV10 

04620 

C0SV1X 

04641 

COSX 

05345 

CAZIH 

63060 

CB1 

05004 

CB2X0 

04777 

CBAGAIN 

0466  7 

CBFIX 

04736 

CBFIX1 

04741 

CBFIX2 

04770 

CBFIX3 

05006 

CBRESTORE 

04731 

CBSMAL 

04761 

CBXO 

04776 

CBX02 

05000 

CBY 

04775 

CELBODY 

63113 

CELEV 

63061 

CELTIME 

63133 

CELTIMEXX 

06141 

CFTABLE 

01206 

CHPAR 

63431 

CRANGE 

63057 

CVAL 

03710 

DOPPOUT 

66000 

DATODELT 

00464 

DATODY 

00370 

DATOEQ 

00407 

DATOI 

00336 

DATOMO 

00446 

DATOMODE 

00477 

DATOTBASE 

00430 

DATOW 

00312 

DATA03 

00052 

DAT  A03 1 

0007  2 

DATA04 

00124 

DATA05 

00126 

DATA054 

00162 

DATA055 

00164 

DATA062 

00211 

DAT  A071 

00225 

DATADELT 

004  72 

DATADY 

00402 

DATAEQ 

00417 

DATAERES 

01003 

DATAEX  IT 

00235 

DATAHAHA 

00777 

DATAIN 

00002 

DATAI RES 

01002 

DATAM 

00366 

DATAMO 

00460 

SATEL 

LABEL 

LOC 

DATAMODE 

datamesb 

OAT  ANALYZE 
DAT  AREFD 

DAT  ATYP  1 
DATAWRES 
DATECON2 

DAT IDY 

DAT  1 1 

DATIMODE 

DATINU 

DAT  IW 

DAT  PES I 
CATMESS 

DAT  PM 

DATRE2 

CAYTEM 

CECOFFSET 

DECLINSCAN 

DELRAM 

DELTATEE 

OELTI 

DELTRAM 

DERCMEG 

DIV 

DRXXX 

DUPSECTTG 

DYPRMO 

E1LAST 

ECALC 

EDELT 

EET 

EFP 

ELEV 

ELEVADD 

EPRESW 

ERR 

ERR  1 2 

ERR15 

ERR17 

ERR21 

ERR24 

ERR27 

ERR  3 1 

ERR34 

ERR40 

ERR7 

ESTSHIFTED 

EVAL 

EXP 

EXP2 

00507 

00276 

63425 

00300 

01222 

01000 

03577 

00374 

00340 

00503 

00076 

00314 

00550 

00516 

00533 

00250 

05243 

63515 

63505 

02476 

63316 

03642 

03641 

03634 

06275 

06104 

63154 

01233 

03662 

04410 

04045 

05256 

06172 

63054 

63443 

03705 

06744 

06764 

06771 

06777 

07003 

07011 

07017 

07043 

07051 

07021 

07037 

63143 

03644 

06616 

06633 

SPURT  OUTPUT  NO.  211 


MCOUIl  KrN#7/l  /*«? 


LABEL 

LOC 

LABEL 

LOC 

DATAMESA 

00310 

DATAMESAA 

00302 

DATAMESBB 

00267 

DATAMRES 

01004 

DATARAM 

00334 

DATARAMRES 

01001 

DATATB ASE 

00442 

DAT  ATYP 

00262 

DA  TAUT AG 

00253 

DATAW 

00322 

DATE 

03532 

DATEC0N1 

03576 

DATECDN3 

03600 

DAT I DELT 

00470 

DATIE 

00352 

DAT  I EQ 

00413 

DATIM 

00364 

DAT  I  HO 

00452 

DATINA 1 

00031 

DATINA 1 1 

00042 

DATIRAP 

00326 

DATITBASE 

00434 

DATME 

00531 

DATMESE 

00554 

DATMESM 

00560 

DATMESRAM 

00535 

DATMESW 

00543 

DATMI 

00527 

DATMRAM 

00523 

DATMW 

00525 

DAY 

63150 

DAYCON 

03754 

DA  YX 

03752 

DEC 

63003 

DECON 

04026 

DECDOT 

63010 

DELL 

02027 

DELR 

02342 

DELT 

03734 

DELT 12 

06143 

DELTB 

03676 

DELTCOS 

03724 

DELTL 

03637 

DELTR 

03640 

DELTSIN 

03700 

DELTX 

03756 

DERCNT 

01204 

DERRAM 

03635 

OMODE 

00662 

DRADIUS 

03423 

DRXXXX 

06103 

DSECONDS 

63141 

DVOFL 

06761 

DYDMP 

63421 

DYPRYR 

01247 

EONE 

00602 

E2LAST 

03663 

ECALl 

04463 

ECALRTN 

04472 

ECNT 

00775 

EE 

03627 

EE2 

03623 

EFOUR 

00610 

EFIVE 

00612 

EGVAL 

03643 

EKODE 

03723 

elevoffset 

63513 

ELEVOUT 

65000 

ELEVIN 

76000 

ELVTNSCAN 

63502 

EQMODE 

00771 

EQUATOR 

63323 

ERR10 

06776 

ERR11 

0676  3 

ERR  1 3 

06766 

ERR14 

06767 

ERR  16 

06772 

ERR16A 

06774 

ERR2 

07030 

ERR20 

07001 

ERR22 

07005 

ERR23 

07007 

ERR25 

07013 

ERR26 

07015 

ERR3 

07031 

ERR30 

07041 

ERR32 

07045 

ERR33 

07047 

ERR35 

07053 

ERR4 

07033 

ERR5 

07034 

ERR6 

07036 

ERRINST 

05065 

ERRPRT 

05024 

ETHREE 

00606 

ETWO 

00604 

EVALC3S 

03624 

EVALSIN 

03625 

EXP  1 

06626 

EXP10 

06675 

EXP3 

06636 

EXP4 

06640 

SATEL 

LABEL  LOC 

EXP5  06652 

EXPNAME  63350 

FFX  05336 

FIXCNE  03606 

F I X 1 3  03575 

FIX3  03610 

FIX52  03616 

FIX712  03614 

FIXTWOX  03617 

FLTCFX  06373 

FLTCNE  04016 

FIT  60  04002 

FLTNDAY  01274 

FLTTWOX  04014 

FP4  06165 

FP7  06170 

FREQUENCY  63317 

GEOCENLAT  63322 

GPFLT  04033 

GTEM  05003 

HOURREG  63151 

ICNE  00616 

IC11RA0I0  67776 

£  I014RADIO  70776 

lO  ID17RA0I0  72776 

IC1CELCCR  63000 

ID1RAOIO  63440 

I  01 SYSNAM  77676 

ID20RA0I0  73777 

I D23RAD 1 0  75776 

I 026RAD I 0  76776 

ID2RA0C0R  63051 

I D2SYSENT  77577 

ID2TIME  63131 

ID5RADI0  64776 

ID8RADI0  65777 

IFIVE  00626 

IIFCOS  03650 

INAZIMADD  63446 

I NCCNVER1  05133 

I NCCNVER4  05162 

I NCCNVER7  05201 

INCCNVERB  05177 

I NC2  05116 

INTER  63413 

INTERDOPP  74000 

INTERRANGE  76777 

IZEROX  00614 

JPPDELT 12  03766 

JMPPTX  06150 

KCON  03735 


SPURT  OUTPUT  NO.  211 


MCQU ILKIN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

EXP6 

06661 

EXP7 

06672 

EZERO 

00600 

FF 

05323 

FIRSTELEV 

63104 

FIRSTHRU 

63153 

FIXONEX 

03620 

FIX12 

03615 

FIX14 

03574 

FIX16 

03573 

FIX32 

03572 

FIX5 

03612 

FIX56 

03613 

FIX6 

03611 

FIX864 

03601 

F I  XT  WO 

03607 

FI  XTWO XX 

04023 

FLATTENING 

63337 

FLTOFX  1 

06405 

FLT0FX2 

06410 

FLT423 

04010 

FLT5000 

04004 

FLT864 

04006 

FLTBDAY 

01270 

FLTPT 

06155 

FLTTWO 

04012 

FLTTWO  XX 

04020 

F  PI 

06164 

FP5 

06166 

FP6 

06167 

FPSTOP 

06742 

FRAMESIZE 

63101 

FXDEGRAD 

03602 

FXTOFL 

0636  3 

GEODETLAT 

63321 

GM 

03714 

GMTMOD U24 

63145 

GMTSHIFTED 

63144 

HOLDNOHOLD 

63511 

HOURMINUTE 

63137 

HEIGHT 

63326 

HERE 

07072 

I CNT 

00774 

ID10RADI0 

66777 

ID12RA0I0 

67777 

I 013RAD1 0 

70775 

ID15RADI0 

71776 

I D16RADI 0 

71777 

ID18RADI0 

72777 

I D19RADI0 

73776 

ID1ENTPNT 

63410 

I D1RADC0R 

63050 

I01RECRD 

63210 

I D1SYSENT 

77576 

I D 1SYS  PAR 

63310 

ID1TIME 

63130 

102  IRA  01 0 

74776 

ID22RADIO 

74777 

ID24RA  01 0 

75777 

I 025RA0I0 

76775 

I02CEL  COR 

63001 

I D2ENTPNT 

63411 

ID2RADI0 

63441 

I 02RECRD 

63211 

ID2SYSNAM 

77677 

I D2SYSPAR 

63311 

I03RADI0 

63776 

ID4RADI0 

63777 

I06RA0I0 

64777 

I07RA0I 0 

65776 

ID9RA0I0 

66776 

I  FOUR 

00624 

II 

03630 

I  I  COS 

03646 

IIFSIN 

03647 

1 1  SI  N 

03645 

INCONV  21 

05142 

INCONVER 

05076 

INC0NVER2 

05136 

I NC0NVER3 

05145 

INC0NVER5 

05167 

INC0NVER6 

05173 

INC0NVER8 

05213 

INCONVERA 

05151 

INCONV ERX 

05222 

I  NCI 

05114 

I NC3 

05125 

INELEVAOD 

63447 

INTERAZIM 

72000 

INTERCOM 

63426 

INTERELEV 

73000 

INTERLCKSW 

63460 

ITHREE 

00622 

I  TWO 

00620 

JMPCALC 

06047 

JMPDELT 

00660 

JHPK 

03776 

JMPPT 

06146 

JTTEST  SW 

06050 

JULOAY 

05245 

KCONX 

03760 

KMPERNM 

63342 

SATEL 

LABEL  LOC 

K YBROLEVEL  63110 

LCGE1  07343 

LCGE3  07414 

LCGEK  07442 

LCGES  07452 

LL  03665 

LLFSIN  03670 

PCD  1  05755 

PCD3  05760 

PCD6  05774 

PCDB5  05751 

PGONORM  05745 

PlCCS  03660 

PAINSWlTCH  63334 

PCORRECT  01563 

PCAL3AA  01370 

PCAL3B2  01557 

PCAL3B5  02666 

PCAL3EX  01340 

PCALA2P  04044 

PCALANS  04042 

PCALC  01310 

PCALC0N3  03545 

Oo  PCALC0N6  03520 

CO  PCALC0N9  03526 

PCALCAL  01343 

PCALCALN  01413 

PCALCALN2  01503 

PCALCALN2D  01477 

PCALCALN4  01470 

PCALCDRERR  06145 

PCALDEN  04040 

PC AL  EX  I T  02663 

PCALFLT4  05310 

PCALGM3  03524 

PCALM0D1  05313 

PCALM0D3  05304 

PCALNFLT  04031 

PCALNUM  04036 

PCALPINIT  01613 

PC ALST0R2  03534 

PCALST0R5  03537 

PCALSTORB  03541 

PCALSUM  03563 

PCM  00776 

PECCN  03712 

PETCON  03722 

PFOUR  00574 

PINREG  63152 

PPL  06263 

PSFREQ  63332 


SPURT  OUTPUT  NO.  211 


MCOUIl  KlN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

LOC 

05054 

LOGE 

07  307 

L0GE1A 

07362 

L0GE2 

07400 

LOGEA 

07424 

LOGEF 

07432 

LOGEM 

07456 

LOGER 

07420 

LONGITUDE 

63320 

LERR 

07023 

LLCOS 

03667 

LLFCOS 

03671 

LL  SIN 

03666 

LSPERAU 

63336 

M0D2 

05756 

M0D2PI 

05722 

M0D4 

05764 

M0D5 

05735 

M0DB1 

05747 

M0DB4 

05750 

M0DB6 

05752 

M0DB7 

05753 

MODNUM 

06006 

MONE 

00566 

M 1  SIN 

03657 

M3SIN 

03661 

MASK 

05051 

MC0RR01 

01604 

MCAL3 

01312 

MCAL3A 

01321 

MCAL38 

01323 

MCAL3B1 

01556 

MCAL3B3 

01560 

MCAL3B4 

01561 

MCAL3BB 

01402 

MCAL3DD 

01355 

MCALA 

01705 

MCALA2 

03621 

MCALA2P2 

03523 

MCALAB4 

02667 

MCALARGU 

03547 

MCALB7 

02670 

MCALC0N1 

03543 

MCALC0N2 

03544 

MCALCDN4 

03546 

MCALC0N5 

03517 

MCALC0N7 

03521 

MCALCONB 

03522 

MCALCA  1 

02004 

MCALCA2 

02011 

MCALCAL2B 

01523 

MC ALCALEX 

01407 

MCALCALN1 

01435 

MC ALCALN1 A 

01425 

MCALCA  LN2 A 

01510 

MC ALCALN2C 

01516 

MCALCALN2E 

01522 

MCALCALN3 

01457 

MCALCA LN5 

01547 

MCALCALNB7 

01554 

MCALCDRJ 

06034 

MCALCNT 

03565 

MCALDI FF 

03566 

MCALDRAM 

01542 

MCALFL  T2 

01366 

MCALFLT3 

01452 

MCALFL  T5 

05321 

MCALGM 

03571 

MCALGMN2 

04035 

MCALMOD 

05266 

MCALM3D2 

05271 

MCALMOD22 

05303 

MCALMO DB  7 

05311 

MCALNB6 

01562 

MCALNSW 

01526 

MCALNSW1 

01536 

MCALP 

01625 

MCALP2 

03525 

MCALR 

02012 

MC ALST0R1 

03533 

MCALST0R3 

03535 

MC ALST0R4 

03536 

MCALST0R7 

03516 

MC ALSTORA 

03540 

MCALSTCRC 

03542 

MC ALSTORN 

03570 

MCALTWO 

03603 

MCALXB6 

02665 

MCPFILLER 

71000 

MCPGM 

63412 

MESSAGE 

05063 

MESSAGE1 

05057 

METC0N2 

03750 

METC0N3 

03751 

MFIVE 

00576 

MILLSTNADD 

63451 

MLOFL 

06757 

MM 

03626 

MQUAD 

04027 

MRAMCOR 

03527 

MTABLEB6 

01612 

MTABLERAMX 

01605 

SATEL 

LABEL 

LOG 

MTEMP1 

03736 

MTEMP4 

03744 

MTEMP7 

03762 

MTR 

06247 

MZERO 

00564 

NN 

03633 

POLE 

63324 

PERIODAZIM 

63523 

PERI  ODRA 

63527 

PP 

03702 

PREC222 

04365 

PRLGG 

63423 

RCTATERACN 

63506 

RA 

63C02 

R ADARMOCE 

63312 

RADIODEC 

63541 

RADIUS 

63006 

R*MCNE 

00646 

RAMFOUR 

00654 

RAMFSIN 

03655 

R  AM  T  WO 

00650 

RANGEOUT 

70777 

RANGEX 

03664 

RDXXX 

63433 

RECELEV 

70000 

R  ECRDSWTCH 

63155 

RZERO 

06441 

SADD1 

04101 

SAT2PI 

04025 

S  AT  A3 

032  22 

S  AT  ALPH2X 

03275 

SATC3 

03131 

SATDELT A 

03113 

SATEL 

00000 

SAT INITEX 

06032 

SAZIM 

63055 

SCCR1 

06077 

SCDR4 

06126 

SCL 

06315 

S  DEC 

63005 

SELEV 

63056 

S  FT 

06242 

SIN 

07470 

SINAZEL 

63066 

SINCOSil 

07570 

SINC0S6 

07550 

SINDEN 

03703 

SINI  I 

04136 

SINIT31 

04205 

SINIT5 

02753 

SINTEST 

05503 

SPURT  OUTPUT  NO,  211 


MCQUILKIN»7/l/65 

LABEL 

LOC 

LABEL 

LOC 

MTEMP2 

03740 

MTEMP3 

03742 

MTEMP5 

03746 

MTEMP6 

03764 

MTHREE 

00572 

MTIME 

03530 

MTR  1 

06250 

MT  WO 

00570 

NEG 

06330 

NMPERAU 

63340 

NSTIME 

01272 

NTlMEl 

01300 

POS 

06232 

P0W14 

07057 

PERIOD  DEC 

63525 

PERI ODELEV 

63521 

PLOTP 

63436 

PLANP 

63434 

PRED2 

04345 

PRED21 

04402 

PREDIG  TE 

04225 

PREVIOUSTM 

63461 

PUNCH 

06420 

ROTATEAEBX 

63507 

ROTATE RDBX 

63510 

ROUND 

04060 

RAOFFSET 

63514 

RADOT 

63007 

RADCBX  SC  AN 

63503 

RADECOTIME 

63531 

RADIOMETER 

63102 

RADIORA 

63540 

RADI USDOT 

63011 

RAM 

03632 

RAMCOS 

03654 

RAMCNT 

00772 

RAMFCOS 

03656 

RAMFIVE 

00656 

RAMSIN 

03653 

RAMTHREE 

00652 

RAMZERO 

00644 

RANGE 

63052 

RANGEADD 

63445 

RANGEDOT 

63062 

RA  SC  TN  SC  AN 

63504 

RDMTR 

63430 

RECORDSIZE 

63112 

RECAZIM 

67000 

RECFILE 

63212 

RECRD 

63415 

RELEASESW 

63156 

RR 

03622 

SOVERF  LOW 

04046 

SADD 

04073 

SADD2 

04105 

SADXT 

04106 

SATA  1 

03200 

SATA2 

03216 

SATALPH1 

03256 

SATALPH2 

03264 

SATALPHA 

03147 

SATD2 

03125 

SATDALPH 

03367 

S ATDDELT 

03342 

SATDV 

03276 

SATDVSTOR 

03730 

SATFRAM 

06152 

SATINIT 

06014 

SATWORK 

06040 

SAVE 

07466 

SBOFL 

06755 

SCALC 

02672 

SCDR2 

06111 

SCDR3 

06121 

SCDR5 

06135 

SCELTIME 

63134 

SC  L 1 

06355 

SCL2 

06356 

SECONDS 

63140 

SECCNT 

05230 

SERROR 

04053 

SET 

06361 

SFT1 

06243 

SIDERTIME 

63012 

SINORIENT 

63064 

SIN52 

02777 

S I  NCOS  1 

07504 

S I  NCOS  10 

07566 

S I  NCOS  2 

07514 

SINC0S20 

07575 

SI  NCOS  7 

07562 

SINC0S8 

07616 

SINIB6 

04222 

SINIB7 

04223 

SINIT2 

04155 

SINIT3 

04172 

SINIT32 

04216 

SINIT4 

02736 

SINIT51 

02766 

SINL 

03003 

SINTK 

03713 

SINUM 

03704 

SATEl 

LABEL  LOC 

SINVO  OOOOO 

SINV11  04562 

SINX  05357 

SKIP  63331 

SLFCALLX1  03100 

SQR  06444 

SQR3  06526 

SCR  T 1  06513 

SSBXT  04127 

SSSUM  03726 

SSUB2  04126 

SUB  06253 

SYNCTIMING  63542 

S YSCGMREG3  63454 

SYSCOMR  EG6  63457 

SYS  TATI  63313 

TCON  03675 

TCNTA  04000 

TEONE  00705 

TEMP  04133 

TEZERO  00703 

TIFCUR  00727 

TIME1  03770 

Oo  TIMEF  03771 

Ui  TIMETOHOLD  63520 

TITHREE  00725 

TJMPDELT  00763 

TMFCUR  00677 

TMTWO  00673 

TRAMFOUR  00757 

TRAMTWO  00753 

TRUETIME  63132 

TW026  03721 

TWOSECOOP  63017 

T  WP  125  04024 

TWTWO  00737 

T  ZERO  00665 

UPCCOI  01025 

UP0AT02  01071 

UP0AI05  01106 

UPD AT  10  01123 

UPCAT22  01172 

UPDATB5  01161 

UPSUM  01200 

VELCFLIGHT  63335 

VIZRA1  63013 

VV  03672 

VYEAR  01302 

WCNE29  03720 

WCNT  00773 

WFADD  63450 


SPURT  OUTPUT  NO.  211 


MCQUILKIN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

SINV1 

04567 

SINV10 

04554 

SINV1X 

04575 

SINVV 

04502 

SINX1 

05467 

S I  NX  1 1 

05476 

SL  FBGM 

03034 

SLFCALL 

03052 

SLFCALLX2 

03061 

SLFCALLX3 

03065 

SQR  1 

06515 

SQR2 

06522 

SQR4 

06532 

SORT 

05504 

SR  A 

63004 

SRADTIME 

63136 

SSPI 

03727 

SSPROD 

03725 

SSUB 

04114 

SSUB1 

04122 

STARTREAD 

07055 

STEM1 

03711 

SUBADD 

03020 

SUBADDX 1 

03032 

SYSC0MREG1 

63452 

S YSC0MREG2 

63453 

SYSC0MREG4 

63455 

SYSC0MREG5 

63456 

SY SENT RI E  S 

77600 

SYSNAMES 

77700 

SYSTAT2 

63314 

SYSTATD 

63315 

TCON  VERT 

05233 

TCNT 

01205 

TCNTFLT 

01202 

TDMODE 

00765 

TEFOUR 

00713 

TEFIVE 

00715 

TE  THREE 

00711 

TETWO 

00707 

THING 

05052 

TIONE 

00721 

TIFIVE 

00731 

TIME 

03773 

TIMECORR 

63107 

TIMED 

03772 

TIMEMODE 

63103 

TIMEP 

63435 

TIMETEMP 

01276 

TINIT 

03732 

TITWO 

00723 

TIZEROX 

00717 

TL  AST 

00663 

TMONE 

00671 

TMFIVE 

00701 

TMTHREE 

00675 

TMZERO 

00667 

TRAMONE 

00751 

TRAMFI VE 

00761 

TRAMTHREE 

00755 

TRAMZERO 

00747 

TRUERANGE 

63063 

TTEST 

06140 

TTYSTATUS 

63111 

TWONE 

00735 

TWOPI25 

04022 

TWFOUR 

00743 

TWFIVE 

00745 

TWPI26 

04025 

TWTHREE 

00741 

TWZERO 

00733 

TYPE 

06416 

UDOT 

04001 

UPADD 

01231 

UPCALC 

01005 

UPDAT01 

01060 

UP  DA TO  3 

01073 

UPDAT04 

01075 

UP  DA  TO  6 

OHIO 

UPDAT07 

01121 

UP  DAT1  1 

01147 

UPDAT21 

01164 

UPDATB2 

01157 

UPDATB3 

01160 

UPDATB6 

01162 

UPDIFF 

01227 

VDOT 

03731 

VDAY 

00767 

VIZDEC  1 

63014 

VIZDEC2 

63016 

VIZRA2 

63015 

VMONTH 

01304 

VVCOS 

03674 

VVSIN 

03673 

WONE 

00632 

W0NE28 

03717 

W0NEP26 

03716 

WONETH 

05001 

WFURD 

63432 

WFOUR 

00640 

WFFREQ 

63333 

WFIVE 

00642 

SATEL 

LABEL 

LOC 

WS 

06422 

WS11 

06433 

W  S 1 4 

06436 

WS2 

06424 

WS5 

06427 

WTHREE 

00636 

YEARMONTH 

63147 

ZC^  EGA 

03631 

ZRTRAN 

63330 

END  CF  LISTING 


CO 

On 


SPURT  OUTPUT  NO 


211 


MCQUILKIN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

WS1 

06423 

WS10 

06432 

WS  12 

06434 

WS  13 

06435 

WS  15 

06437 

WS  16 

06440 

WS3 

06425 

WS4 

06426 

WS6 

06430 

WS7 

06431 

WTWO 

00634 

WZERO 

00630 

YR  TRAN 

63327 

ZOCOS 

03652 

ZOSIN 

03651 

ZERO 

06352 

137 


SATEL 

LABEL 

LOC 

SINVO 

OOOOO 

DAT  I NA1 

00031 

CAT  A03 

00052 

DATINU 

00076 

DAT  A051 

00143 

0ATA061 

00207 

DAT  A072 

00227 

DAT  AEXB7 

00246 

OATALOC 

00260 

DAT  AMESB 

00276 

DATAMESA 

00310 

DATAW 

00322 

OATARAM 

00334 

DAT  A  I 

00346 

DATAE 

00360 

OATAM 

00366 

DATADY 

00402 

DATAEQ 

00417 

DATATBASE 

00442 

DATAMO 

00460 

DATAOELT 

00472 

DATAMODE 

00507 

DAT  PW 

00525 

DAT  PH 

00533 

DATMESI 

00550 

PZERO 

00564 

PTHREE 

00572 

EZERO 

00600 

ETHREE 

00606 

IZEROX 

00614 

ITHREE 

00622 

W  ZERO 

00630 

WTHREE 

00636 

RAPZERO 

00644 

RAPTHREE 

00652 

JPPDELT 

00660 

T  ZERO 

00665 

TPTWO 

00673 

TPFIVE 

00701 

TETWO 

00707 

TEFIVE 

00715 

TITWO 

00723 

TIFIVE 

00731 

TwTWO 

00737 

TWF I VE 

00745 

TRAPTWO 

00753 

TRAPFIVE 

00761 

vday 

00767 

WCNT 

00773 

PCNT 

00776 

DATARAMRES 

01001 

SPURT  OUTPUT  NO.  212 


MCQUILKIN*7/l/65 


LABEL 

LOC 

LABEL 

LOC 

SATEL 

OOOOO 

DATAIN 

00002 

DATINA  11 

00042 

DAT  A02 

0004  3 

0ATAO3  1 

00072 

DATA032 

00075 

DATA04 

00124 

DATA05 

00126 

DATA054 

00162 

DAT  A055 

00164 

DATA062 

00211 

0ATAO71 

00225 

DATAEX  IT 

00235 

A$  $S$S1 1 1 1 

00243 

DATRE2 

00250 

DATAUTAG 

00253 

DATATYP 

00262 

DAT  AMESBB 

00267 

DATAREFO 

00300 

DAT  AMESAA 

00302 

DA  TOW 

00312 

DAT  I  W 

00314 

DA TORAH 

00324 

DATIRAM 

00326 

DA  TO  I 

00336 

DAT  I  I 

00340 

DATOE 

00350 

DATIE 

00352 

DA  TOM 

00362 

DATIH 

00364 

DATODY 

00370 

DATIDY 

00374 

DATOEQ 

00407 

DAT  I EQ 

00413 

DATOTBASE 

00430 

DATITBASE 

00434 

DAT0M3 

00446 

OATIMO 

00452 

DATODELT 

00464 

DATIDELT 

00470 

OATOMODE 

00477 

OATIMODE 

00503 

DATMESS 

00516 

DATHRAH 

00523 

DATMI 

00527 

OAT  ME 

00531 

DATMESRAM 

00535 

OATMESW 

00543 

DATMESE 

00554 

OATMESM 

00560 

MONE 

00566 

MT  WO 

00570 

MFOUR 

00574 

MFIVE 

00576 

EONE 

00602 

ETWO 

00604 

EFOUR 

00610 

EFIVE 

00612 

IONE 

00616 

I  TWO 

00620 

IFOUR 

00624 

IFIVE 

00626 

WONE 

00632 

WT  WO 

00634 

WFOUR 

00640 

WFIVE 

00642 

RAHONE 

00646 

RAMTWO 

00650 

RAMFOUR 

00654 

RAMFIVE 

00656 

DMODE 

00662 

T  LAST 

00663 

TMZERO 

00667 

TMONE 

00671 

TMTHREE 

00675 

T  MFOUR 

00677 

TEZER3 

00703 

TEONE 

00705 

TETHREE 

00711 

TEFOUR 

00713 

TIZEROX 

00717 

TIONE 

00721 

TI  THREE 

00725 

TIFOUR 

00727 

TWZERO 

00733 

TWONE 

00735 

TWTHREE 

00741 

TWFOUR 

0074  3 

TRAMZERO 

00747 

TRAMONE 

00751 

TRAMTHREE 

00755 

TRAMFOUK 

00757 

TJMPDELT 

00763 

TDMODE 

00765 

eqmode 

00771 

RAMCNT 

00772 

ICNT 

007  74 

ECNT 

00775 

OATAHAHA 

00777 

DATAWRES 
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OATAIR  ES 

01002 

DATAERES 
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UPDAT04  01075 

UPDAT07  01121 
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UP0ATB6  01162 

UPSUM  01200 

TCNT  01205 

UPDIFF  01227 

OYPRYR  01247 

FLTBDAY  01270 

TIMETEMP  01276 

VPONTH  01304 

HCAL3  01312 

A$$)$$1112  01326 

PCAL3DD  01355 

PCAL3BB  01402 

MCALCALN1A  01425 

MCALCALN3  01457 

PCALCALN2  01503 

MCALC ALN2E  01522 

MCALNSW 1  01536 

MCALCALNB7  01554 

£  MCAL3B3  01560 

00  ^CORRECT  01563 

MTABLEB6  01612 

PCALA  01705 

PC A  LR  02012 

DELRAM  02476 

MCAL3B5  02666 

SCALC  02672 

SINIT51  02766 

SUBADD  03020 

SLFCALL  03052 

SLFCALLX1  03100 

S  A  FC3  03131 

SATA2  03216 

SATALPH2  03264 

S ATDOEL  T  03342 

PCALST0R7  03516 

PCALC0N7  03521 

PCALGM3  03524 

PRAPCOR  03527 

PCALST0R1  03533 

PCALST0R4  03536 

PCALSTORB  03541 

PCALC0N2  03544 

PCALARGU  03547 

PCALOIFF  03566 
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UPDATB3 
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TCNTFL T 

01202 

DERCNT 
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CFTABLE 
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DATATYP1 
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UPADD 
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DYPRMO 
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01266 

BDAYNOW 

01267 

NSTIME 

01272 

FLTNDAY 

01274 

NTIME1 

01300 
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01302 

BDAY1 
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MCALC 

01310 

MCAL3A 

01321 

MCAL3B 

01323 

MCAL3E  X 

01340 

MCALCAL 

01343 

MCALFL  T2 

01366 

MCAL3AA 

01370 

MCALCALEX 

01407 

MCALC ALN 

01413 

MCALCALN1 

01435 

MCALFLT3 

01452 
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01470 
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MCALC ALN2C 
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MC ALCAL2B 
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01526 

MCALDRAM 

01542 
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MCALNB6 
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MCORROi 

01604 
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01605 
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01613 

MC  ALP 
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MCALCA2 
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DELL 

02027 

DELR 
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HC ALEX  I T 

02663 
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02665 
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02667 

PCALB7 
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SINIT4 

02736 
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SIN52 

02777 

SINL 

03003 

SUBADD  XI 

03032 

SLFBGN 
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SLFCALLX2 

03061 

SLFCALLX3 

03065 

SATDEL  TA 

03113 

SATD2 

03125 

SATALPHA 

03147 

SATA1 

03200 

SATA3 

03222 

SATALPH1 

03256 

SAFALPH2X 

03275 

SATDV 

03276 

SATDAL  PH 

03367 
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MCALC0N5 
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MCALC0N6 
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MCALC0N8 
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MCALC0N1 

03543 
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MCALSUM 
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MCALCNT 
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03576 

DATEC0N2 
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DELTR  03640 

EGVAL  03643 

1IC0S  03646 

ZCSIN  03651 

RAMCOS  03654 

M1SIN  03657 

E1LAST  03662 

LL  03665 

LLFSIN  03670 

VVSIN  03673 

OELTB  03676 

ALPHS1N  03701 

S1NUM  03704 

£  BVAL  03707 

vO  MECCN  03712 

A2  03715 

W0NE29  03720 

EKODE  03723 

SSSUM  03726 

VCOT  G3731 

KCON  03735 

MTEMP3  03742 

MET  COM2  03750 

DAYCON  03754 

MTEMP7  03762 

T I  ME  1  03770 

TIME  03773 

TCNTA  04000 

F  LT  5000  04004 

FLTTWO  04012 

FLTTWOXX  04020 

TWPI25  04C24 

OECCN  04026 

MCALNFLT  04031 

MCALNUM  04036 

MCALA2P  04044 

SERROR  04053 

SADD1  04101 

S  SUB  04114 

SSBXT  04127 

SINIT2  04155 
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EVAL 
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RAMFCOS 
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03660 
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E2LAST 

03663 

RANGEX 

03664 

LLSIN 

03666 

LLCOS 

03667 

LLFCOS 

03671 

VV 

03672 

VVCOS 

03674 

TCON 

03675 

ALPHB 

03677 

DELTSIN 

03700 

PP 

03702 

SINDEN 

03703 

EPRESW 

03705 

AVAL 

03706 

CVAL 

03710 

STEM1 

03711 

SINTK 

03713 

GM 

03714 

W0NEP26 

03716 

W0NE28 

03717 

TW026 

03721 

METCON 

03722 

DELTCOS 

03724 

SS  PROD 

03725 

SSPI 

03727 

SATDVSTOR 

03730 

TINIT 

03732 

DELT 

03734 

MTEMP1 

03736 

MTEMP2 

03740 

MTEMP4 

03744 

MTEMP5 

03746 

METC0N3 

03751 

DAYX 

03752 

DEL  T  X 

03756 

KCONX 

03760 

MTEMP6 

03764 

JMPDELT 12 

03766 

TIMEF 

03771 

TIMED 

03772 

CELTIMEX 

03774 

JMPK 

03776 

UDOT 

04001 

FLT60 

04002 

FL  T 864 

04006 

FLT423 

04010 

flttwox 

04014 

FLTONE 

04016 

T WOP  12  5 

04022 

FIXTWOXX 

0402  3 

TWPI26 

04025 

SAT2PI 

04025 

MQUAD 

04027 

ASINXCON 

04030 

GMFLT 

04033 

MCALGMN2 

04035 

MCALDEN 

04040 

MCALANS 

0404  2 

ED6LT 

04045 

SOVERFLOW 

04046 

ROUND 

04060 

SADD 

0407  3 

SADD2 

04105 

SADXT 

04106 

SSUB1 

04122 

SSUB2 

04126 

temp 

04133 

SINII 

04136 

SINIT3 

04172 

SINIT31 

04205 

SATEL 
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CBS  T  ART  04700 

CBFIX1  04741 

CBFIX2  04770 

CBXO  04776 
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ERRPRT  05024 

LCC  05054 

ERRINST  05065 

INC1  05114 

INCCNVER1  05133 
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^  DAYTEM  05243 

4^  MCALMOD  05266 

O  MCALM0D3  05304 
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SATINIT  06014 

SATWORK  06040 

SC0R1  06077 

SC0R2  06111 

SC0R5  06135 

CELT  12  06143 

JMPPTX  06150 

F  PI  06164 

FP6  06167 

ADD  06214 
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SET  06361 
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SINV1 

04567 

SINV1X 

04575 

C0SV11 

04626 

C0SV1 

04633 

CBROOT 

04645 

CBAGAIN 

04667 

CBREST  ORE 

04731 

CBFIX 

04736 

CBFIX12 

04747 

CBSMAL 

04761 

CB  XT 

04772 

CBY 

04775 

CB2X0 

04777 

CBX02 

05000 

CBCON 

05002 

GT  EM 

05003 

CB2 

05005 

CBFIX3 

05006 

MASK 

05051 

THING 

05052 

MESSAGE1 

05057 

MESSAGE 

05063 

blast:  ON  V 

05066 

INCONVER 

05076 

I NC2 

05116 

I NC3 

05125 

INCONV  ER  2 

05136 

INC0NV21 

05142 

INCONVERA 

05151 

I NC0NVER4 

05162 

INCONV  ER6 

05173 

INCONVERB 

05177 

INC0NVER8 

05213 

I NCONVERX 

05222 

CONVCON 

05231 

TCONVERT 

05233 

JULDAY 

05245 

EET 

05256 

MCALMD02 

05271 

MC ALM0D22 

05303 

MCALFL  T4 

05310 

MCALM0DB7 

05311 

MCALFL  T5 

05321 

FF 

05323 

COSX 

05345 

SINX 

05357 

S I  NX  1 1 

05476 

SINTEST 

05503 

ATANX 

05552 

ASINX 

05657 

ASINX1 1 

05717 

M0D2PI 

05722 

MODNORM 

05745 

M0DB1 

05747 

M0DB5 

05751 

M0DB6 

05752 

MODI 

05755 

M0D2 

05756 

M0D4 

05764 

M0D6 

05774 

BEL2PI 

06010 

BEL2PI1 

06012 

SATIN!  TEX 

06032 

MCALCDRJ 

06034 

JMPCALC 

06047 

JTTESTSW 

06050 

DRXXXX 

06103 

DRXXX 

06104 

SC  DR  3 

06121 

SCDR4 

06126 

TTEST 

06140 

CELT IMEXX 

06141 

MC ALCDRERR 

06145 

JMPPT 

06146 

SATFRAM 

06152 

FLTPT 

06155 

FP4 

06165 

FP5 

06166 

FP  7 

06170 

EFP 

06172 

POS 

06232 

SFT 

06  24  2 

MTR 

06247 

MTR1 

06250 

MPL 

06263 

OIV 

06275 

NEG 

06330 

AQR 

06337 

SCL  1 

06355 

SCL2 

06356 

FXTOFL 

06363 

FLTOFX 

06373 

FLT0FX2 

06410 

TYPE 

06416 

LABEL 

LOC 

PUNCH 

WS2 

WS5 

WSIO 

WS13 

WS16 

SCRT1 

SCR3 

ATAN1 

A  F  AN5 

EXP2 

EXP5 

EXP  10 

A$$$$$1114 

ERR 

SBOFL 

ERR  1 1 

ERR14 

ERR  16 A 

ERR20 

ERR23 

ERR26 

LERR 

ERR4 

ERR7 

ERR32 

ERR35 

ASIN 

ASIN2 

ASIN5 

ASINQ 

LCGE 

LCGE2 

LCGE  A 

LCGES 

COUNT 

SINC0S2 

SINC0S1C 

CCS 

I D1CELCCR 

DEC 

R  AC  I  US 
RADIUSDOT 
VIZCEC1 
TWOSECDOP 

range 

SAZIM 

CAZIM 

TRUERANGE 

SINAZEL 

ACCELEV 

06420 
06424 
064  27 
06432 
06435 
06440 
06513 
06526 
06544 
06610 
06633 
06652 
06675 
06717 
06744 
06755 
06763 
06767 
06774 
0  7001 
07007 
07015 
07023 
07033 
07037 
07045 
07053 
07060 
07144 
07236 
07261 
07307 
07400 
07424 
07452 
07467 
07514 
07566 
07577 
63000 
63003 
63006 
63011 
63014 
63017 
63052 
63055 
63060 
63063 
63066 
63075 
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MS 

06422 

WS1 

06423 

WS3 

06425 

WS4 

06426 

WS6 

06430 

WS7 

06431 

MS  1 1 

06433 

MS  12 

06434 

WS  14 

06436 

WS  15 

06437 

RZERO 

06441 

SQR 

06444 

SQR  1 

06515 

SQR2 

06522 

SQR4 

06532 

ATAN 

06536 

ATAN2 

06556 

ATAN3 

06577 

EXP 

06616 

EXPi 

06626 

EXP  3 

06636 

EXP4 

06640 

EXP6 

06661 

EXP7 

06672 

AERR1 

06707 

A$$$$$l 1 15 

06713 

AERR2 

06727 

FPSTOP 

06742 

AERR 

06747 

ADOFL 

06753 

MLOFL 

06757 

DVOFL 

06761 

ERR12 

06764 

ERR13 

06766 

ERR  1 5 

06771 

ERR16 

06772 

ERR  10 

06776 

ERR17 

06777 

ERR21 

07003 

ERR22 

07005 

ERR24 

07011 

ERR25 

07013 

ERR27 

07017 

ERR40 

07021 

ERR2 

07030 

ERR3 

07031 

ERR5 

07034 

ERR6 

07036 

ERR30 

07041 

ERR31 

07043 

ERR33 

07047 

ERR34 

07051 

START*  EAD 

07055 

P0W14 

07057 

here 

07072 

AS  INI 

07102 

ASIN3 

07150 

ASIN4 

07227 

AS1NK 

07246 

ASINP 

07255 

ACOS 

07264 

ACOS  1 

07303 

L0GE1 

07343 

L0GE1A 

07362 

L0GE3 

07414 

LOGER 

07420 

LOGEF 

07432 

LOGEK 

07442 

LOGEM 

07456 

SAVE 

07466 

SIN 

07470 

SI  NCOS  1 

07504 

SI  NCOS  6 

07550 

S I  NCOS 7 

07562 

SI  NCOS  11 

07570 

SINC0S20 

07575 

S I  NCOS  B 

07616 

A  $$$$$11 13 

07623 

ID2CEL  COR 

63001 

RA 

63002 

SR  A 

63004 

SDEC 

63005 

RADOT 

63007 

DECDOT 

63010 

SIDERT  IME 

63012 

VIZRA1 

63013 

VIZRA2 

63015 

VIZDEC2 

63016 

ID 1RADC0R 

63050 

I D2RADC0R 

63051 

AZIM 

63053 

ELEV 

63054 

SELEV 

63056 

CRANGE 

63057 

celev 

63061 

RANGEDOT 

63062 

S I  NOR  I  ENT 

63064 

COSORIENT 

63065 

COSAZEL 

63070 

ACQAZIM 

63071 

FRAMESIZE 

63101 

RADIOMETER 

63102 

SATEL 

LABEL  LOC 

TIMEMODE  63 103 

ASTRODEC  63106 

TTYSTATUS  63111 

I  Cl T I  ME  63130 

CELTIME  63133 

SRADTIME  63136 

DSECONDS  63141 

GMTSH I  FT  ED  63144 

YEARMONTH  63147 

MINREG  63152 

RECRDSWTCH  63155 

I D2RECRC  63211 

I02SYSPAR  63311 

SYSTAT2  63314 

FREQUENCY  63317 

GECCENLAT  63322 

AZIMOVER  63325 

ZRTRAN  63330 

WFFREQ  63333 

LSPERAU  63336 

AUPEREQU AT  63341 

I  01 ENTPNT  63410 

INTER  63413 

ADSCN  63416 

*°  DYDMP  63421 

CELCOMPGM  63424 

ACQUI  63427 

1*  FORD  63432 

TIMEP  63435 

ID2RADI0  63441 

DCPPADD  63444 

INFLEVADD  63447 

S YSCOMR  EG 1  63452 

SYSC0MREG4  63455 

INTERLCKSW  63460 

AZELBXSCAN  63500 

R  ADCBXS  CAN  63503 

RCTATERADN  63506 

HOLDNOHOLD  63511 

RAOFFSET  63514 

ALNGOFFSET  63517 

ARCCFELEV  63522 

PER  I ODDEC  63525 

ARCCFRA  63530 

R  AD  I OR A  63540 

I03RADIG  63776 

ID5RADI0  64776 

ID7RADI0  65776 

ID9RADI0  66776 

I011RADI0  67776 

ID13RADI0  70775 
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TIMECORR 
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63110 
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63112 

CELBODY 

63113 

ID2TIME 

63131 

TRUETIME 

63132 

SCELTIME 

63134 

CONVERTIME 

63135 

HOURMI  NUTE 

63137 

SECONDS 

63140 

ACTUAL  TIME 

63142 

ESTSHIFTED 

63143 

GMTM0DU24 

63145 

BLASTOFF 

63146 

DAY 

63150 

HOURREG 

63151 

FIRSTHRU 

63153 

DUMSECTTG 

63154 

RELEASES* 

63156 

I D1RECRD 

63210 

RECFILE 

63212 

I D IS YS  PAR 

63310 

RADARMOOE 

63312 

SY  ST  AT  1 

63313 

SYSTATD 

63315 

DELTATEE 

63316 

LONG I TUOE 

63320 

GEODETLAT 

63321 

EQUATOR 

63323 

POLE 

63324 

HEIGHT 

63326 

YRTRAN 

63327 

SKIP 

63331 

MS  FREQ 

63332 

MAINSW  ITCH 

63334 

VELOFLIGHT 

63335 

FLATTENING 

63337 

NMPERAU 

63340 

KMPER^M 

63342 

EXPNAME 

63350 

ID2ENTPN  T 

63411 

MCPGM 

63412 

COCON 

63414 

RECRD 

63415 

AESCN 

63417 

CORCT 

63420 

CHCOR 

63422 

PRLOG 

63423 

DATANALYZE 

63425 

INTERCOM 

63426 

RDMTR 

63430 

CHPAR 

63431 

RDXXX 

63433 

PLANP 

63434 

PL  OTP 

63436 

I D 1 RAD I 0 

63440 

AZ  IMADO 

63442 

ELEVADD 

63443 

RANGEADD 

63445 

INAZ IMADD 

63446 

WF  ADD 

63450 

MILLSTNADD 

63451 

SYSC0MREG2 

63453 

SY  SC0MRLG3 

63454 

SYSC0MREG5 

63456 

S YSC0MREG6 

63457 

PREVIO  USTM 

63461 

BODYSIZE 

63462 

AZMTHSCAN 

63501 

ELVTNSCAN 

63502 

RA SC TN  SCAN 

63504 

DECLINSCAN 

63505 

ROTATE  AEBX 

63507 

ROTATERCBX 

63510 

AZIMOFFSET 

63512 

ELEVOFFSET 

63513 

DECOFFSET 

63515 

CR  SSOFFSET 

63516 

TIMET3H0LD 

63520 

PERI ODELEV 

63521 

PER IOD AZ I M 

63523 

ARCOFAZIM 

63524 

ARCOFDEC 

63526 

PERIODRA 

63527 

RADECO  TIME 

63531 

AZELOTIME 

63532 

RADI  OD  EC 

63541 

SYNCTIMING 

63542 

I04RAD  10 

63777 

AZIMOUT 

64000 

ID6RAD  10 

64777 

ELEVOUT 

65000 

ID8RAD  10 

65777 

OOPPOUT 

66000 

I010RADI0 

66777 

RECAZIM 

67000 

ID12RADI0 

67777 

RECELEV 

70000 

ID14RADI0 

70776 

RANGEOUT 

70777 

SATEL 

LABEL 

LOC 

PCPFILLER 

71000 

INTERAZ IP 

72000 

INTERELEV 

73000 

I  NT ERDOPP 

74000 

AZIPIN 

75000 

ELEVIN 

76000 

INTERRANGE 

76777 

SYSENTRIES 
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SYSNAMES 

7  7  700 
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